Changeset 14247 for trunk/abcl/test/lisp/abcl/pathname-tests.lisp

Timestamp:

11/16/12 00:27:44 (8 years ago)

Author:

Mark Evenson

Message:

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

File:

• trunk/abcl/test/lisp/abcl/pathname-tests.lisp (modified) (1 diff)

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

@@ -120 +120 @@
 
 ;; 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