<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div><font class="Apple-style-span" face="'Times New Roman'"><br></font></div><div><font class="Apple-style-span" face="'Times New Roman'">Attached is a small patch to the scond.3 test. It may not be the ideal way to do this, but I'm not seeing another way to get deftest to evaluate the values.</font></div><div><font class="Apple-style-span" face="'Times New Roman'"><br></font></div><div><font class="Apple-style-span" face="'Times New Roman'">The test was failing on MacOSX because </font><font class="Apple-style-span" face="Inconsolata">(truename "/tmp/")</font><font class="Apple-style-span" face="'Times New Roman'"> => </font><font class="Apple-style-span" face="Inconsolata">#P"/private/tmp/"</font><font class="Apple-style-span" face="'Times New Roman'"> instead of </font><font class="Apple-style-span" face="Inconsolata">#P"/tmp/"</font><font class="Apple-style-span" face="'Times New Roman'">.</font></div><div><font class="Apple-style-span" face="'Times New Roman'"><br></font></div><div><font class="Apple-style-span" face="'Times New Roman'">… Patrick</font></div><div><font class="Apple-style-span" face="'Times New Roman'"><br></font></div><div><br></div><div><div><font class="Apple-style-span" face="Inconsolata" color="#1e1b81">diff -c old/tests.lisp new/tests.lisp</font></div><div><font class="Apple-style-span" face="Inconsolata" color="#1e1b81">*** old/tests.lisp 2012-05-08 19:07:27.000000000 -0500</font></div><div><font class="Apple-style-span" face="Inconsolata" color="#1e1b81">--- new/tests.lisp 2012-05-08 19:07:14.000000000 -0500</font></div><div><font class="Apple-style-span" face="Inconsolata" color="#1e1b81">***************</font></div><div><font class="Apple-style-span" face="Inconsolata" color="#1e1b81">*** 385,391 ****</font></div><div><font class="Apple-style-span" face="Inconsolata" color="#1e1b81"> (setf it (truename "/tmp/"))</font></div><div><font class="Apple-style-span" face="Inconsolata" color="#1e1b81"> (namestring *default-pathname-defaults*))</font></div><div><font class="Apple-style-span" face="Inconsolata" color="#1e1b81"> (setf it tmp)))))</font></div><div><font class="Apple-style-span" face="Inconsolata" color="#1e1b81">! "/tmp/")</font></div><div><font class="Apple-style-span" face="Inconsolata" color="#1e1b81"> </font></div><div><font class="Apple-style-span" face="Inconsolata" color="#1e1b81"> (deftest aprog.1</font></div><div><font class="Apple-style-span" face="Inconsolata" color="#1e1b81"> (aprog1 :yes</font></div><div><font class="Apple-style-span" face="Inconsolata" color="#1e1b81">--- 385,391 ----</font></div><div><font class="Apple-style-span" face="Inconsolata" color="#1e1b81"> (setf it (truename "/tmp/"))</font></div><div><font class="Apple-style-span" face="Inconsolata" color="#1e1b81"> (namestring *default-pathname-defaults*))</font></div><div><font class="Apple-style-span" face="Inconsolata" color="#1e1b81"> (setf it tmp)))))</font></div><div><font class="Apple-style-span" face="Inconsolata" color="#1e1b81">! #.(namestring (truename "/tmp/")))</font></div><div><font class="Apple-style-span" face="Inconsolata" color="#1e1b81"> </font></div><div><font class="Apple-style-span" face="Inconsolata" color="#1e1b81"> (deftest aprog.1</font></div><div><font class="Apple-style-span" face="Inconsolata" color="#1e1b81"> (aprog1 :yes</font></div></div><div><br></div></body></html>