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

Timestamp:

06/26/20 13:23:35 (3 years ago)

Author:

Mark Evenson

Message:

Revisions for the long neglected ABCL/TEST/LISP suite

Restore loading under SBCL and CCL.

FIXME: package-local-nicknames-tests only runs once in the same
process, causing a mysterious failure on the second time.

File:

• trunk/abcl/test/lisp/abcl/pathname-tests.lisp (modified) (2 diffs)

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

@@ -563 +563 @@
 
 ;; If the prefix isn't a defined logical host, it's not a logical pathname.
-#-(or cmu (and clisp windows))
+#-(or ccl cmu (and clisp windows))
 ;; CMUCL parses this as (:ABSOLUTE #<SEARCH-LIST foo>) "bar.baz" "42".
 ;; CLISP signals a parse error reading #p"foo:bar.baz.42".
@@ -1335 +1335 @@
 (pushnew 'sbcl.26 *expected-failures*)
 
-(setf (logical-pathname-translations "scratch")
-      '(("**;*.*.*" "/usr/local/doc/**/*")))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (setf (logical-pathname-translations "scratch")
+        '(("**;*.*.*" "/usr/local/doc/**/*"))))
 
 ;; Trivial merge.