;;; 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"))))
;;; 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 ...)