Commit 0d0fb4bf authored by Karsten Poeck's avatar Karsten Poeck
Browse files

Mark failing test for clasp

parent c2de8118
......@@ -53,7 +53,9 @@
(leave-test "CLISP 2.49 translates logical pathnames in *LOAD-PATHNAME*" 0))
(defparameter sys (find-system :test-logical-pathname))
(assert (logical-pathname-p (component-pathname sys)))
(with-expected-failure (#+clasp "Clasp fails here")
(assert (logical-pathname-p (component-pathname sys))))
(assert (logical-pathname-p (system-source-file sys)))
(DBG "Done")
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