[anaphora-cvs] CVS src

[CVS User jsquires]

Update of /project/anaphora/cvsroot/src
In directory tiger.common-lisp.net:/tmp/cvs-serv22225

Modified Files:
	tests.lisp 
Log Message:
Fix assumptions about TRUENAME in test, per Patrick Stein

--- /project/anaphora/cvsroot/src/tests.lisp	2011/06/14 13:14:05	1.6
+++ /project/anaphora/cvsroot/src/tests.lisp	2012/09/06 02:33:20	1.7
@@ -385,7 +385,7 @@
 		     (setf it (truename "/tmp/"))
 		     (namestring *default-pathname-defaults*))
 		(setf it tmp)))))
-  "/tmp/")
+  #.(namestring (truename "/tmp/")))
 
 (deftest aprog.1
     (aprog1 :yes