-;;; 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"))))
-
-;; error: name-component not valid
-(assert (not (ignore-errors
- (make-pathname :host "FOO" :directory "bla" :name "!bar"))))
-
-;; error: type-component not valid.
-(assert (not (ignore-errors
- (make-pathname :host "FOO" :directory "bla" :name "bar"
- :type "&baz"))))
+(locally
+ ;; MAKE-PATHNAME is UNSAFELY-FLUSHABLE
+ (declare (optimize safety))
+
+ (assert (not (ignore-errors
+ (make-pathname :host "FOO" :directory "!bla" :name "bar"))))
+
+ ;; error: name-component not valid
+ (assert (not (ignore-errors
+ (make-pathname :host "FOO" :directory "bla" :name "!bar"))))
+
+ ;; error: type-component not valid.
+ (assert (not (ignore-errors
+ (make-pathname :host "FOO" :directory "bla" :name "bar"
+ :type "&baz")))))