[armedbear-cvs] r14247 - trunk/abcl/test/lisp/abcl

[mevenson at common-lisp.net]

Author: mevenson
Date: Thu Nov 15 16:27:44 2012
New Revision: 14247

Log:
abcl-test: ensure that the logical pathname host is defined at compile time.

Modified:
   trunk/abcl/test/lisp/abcl/pathname-tests.lisp

Modified: trunk/abcl/test/lisp/abcl/pathname-tests.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/pathname-tests.lisp	Thu Nov 15 04:33:01 2012	(r14246)
+++ trunk/abcl/test/lisp/abcl/pathname-tests.lisp	Thu Nov 15 16:27:44 2012	(r14247)
@@ -119,8 +119,9 @@
             ,namestring))
 
 ;; Define a logical host.
-(setf (logical-pathname-translations "effluvia")
-      '(("**;*.*.*" "/usr/local/**/*.*")))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (setf (logical-pathname-translations "effluvia")
+        '(("**;*.*.*" "/usr/local/**/*.*"))))
 
 (deftest equal.1
   (equal (make-pathname :name "foo" :type "bar")
@@ -1720,4 +1721,4 @@
       (values 
        (pathname-name p) (pathname-type p) (pathname-version p) (pathname-directory p)))
   :wild :wild :wild (:absolute :wild))
-      
\ No newline at end of file
+