Commit e055c72c authored by mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f's avatar mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files

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

parent c1210660
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment