Commit 9f0f8038 authored by Robert Goldman's avatar Robert Goldman
Browse files

Fix bug in OS conditionalization.

parent 594173e8

test/test-utilities.script

+5 −3
Original line number Diff line number Diff line
@@ -63,10 +63,12 @@ 
                   (assert-pathname-equal true dir)

                   (setf true dir)))

             (assert-pathname-equal true (truename (ensure-directory-pathname file)))

             (assert-pathname-equal true (nest #+(and clisp windows) (ensure-directory-pathname)

             (assert-pathname-equal true (nest #+(and clisp os-windows) (ensure-directory-pathname)

                                               (truename* file)))

             (assert-pathname-equal true (nest #+(or allegro (and clisp windows)) (ensure-directory-pathname)

                                               (probe-file* file :truename t)))

             (assert-pathname-equal true

                                    (let ((path (probe-file* file :truename t)))

                                      #+(or allegro (and clisp os-windows)) (ensure-directory-pathname path)

                                      #-(or allegro (and clisp os-windows)) path))

             (assert-pathname-equal true (if-let (x (probe-file* file))

                                           (ensure-absolute-pathname (ensure-directory-pathname x) 'get-pathname-defaults))))

           (check-directory-doesnt-exist (file)