From jsquires at common-lisp.net  Thu Sep  6 02:33:20 2012
From: jsquires at common-lisp.net (CVS User jsquires)
Date: Wed, 05 Sep 2012 19:33:20 -0700
Subject: [anaphora-cvs] CVS src
Message-ID: <E1T9RuC-0005me-7E@common-lisp.net>

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