X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fpathnames.impure.lisp;h=b14b99fa07d576e455175cd8c1a5d2d0825f52c9;hb=4a0ab5193096ca70dbbf43bb21418544f6d018b7;hp=d4022f5fa130771423eeb75bf79669fd237fb219;hpb=7c07a6f965c51828d8f452b47e0620d8e6cf2959;p=sbcl.git

diff --git a/tests/pathnames.impure.lisp b/tests/pathnames.impure.lisp
index d4022f5..b14b99f 100644
--- a/tests/pathnames.impure.lisp
+++ b/tests/pathnames.impure.lisp
@@ -79,22 +79,6 @@
 ;;; FIXME: currently SBCL throws NAMESTRING-PARSE-ERROR: should this be
 ;;; a TYPE-ERROR?
 
-;;; FIXME: These fail in sbcl-0.pre7.15 because of some problem with
-;;; interpreted UNLESS, so that e.g.
-;;;   (ignore-errors (make-pathname :host "FOO" :directory "!bla" :name "bar"))
-;;;    => NIL, #<SIMPLE-TYPE-ERROR {500C945D}>
-;;;   (not (ignore-errors (make-pathname :host "FOO"
-;;;                                      :directory "!bla" :name "bar")))
-;;;    =>T
-;;;   (unless (not (ignore-errors (make-pathname :host "FOO"
-;;;                                              :directory "!bla"
-;;;                                              :name "bar")))
-;;;     "foo")
-;;;   => "foo"
-;;;   (unless t "foo")
-;;;   => NIL
-#|
-;; error: directory-component not valid
 (assert (not (ignore-errors
                (make-pathname :host "FOO" :directory "!bla" :name "bar"))))
 
@@ -113,7 +97,6 @@
 ;;; from host mismatches).
 (assert (equal (namestring (parse-namestring "" "FOO")) "FOO:"))
 (assert (equal (namestring (parse-namestring "" :unspecific)) ""))
-|#
 
 ;;; The third would work if the call were (and it should continue to
 ;;; work ...)