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

Fix bug in OS conditionalization.

parent 594173e8
...@@ -63,10 +63,12 @@ ...@@ -63,10 +63,12 @@
(assert-pathname-equal true dir) (assert-pathname-equal true dir)
(setf true dir))) (setf true dir)))
(assert-pathname-equal true (truename (ensure-directory-pathname file))) (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))) (truename* file)))
(assert-pathname-equal true (nest #+(or allegro (and clisp windows)) (ensure-directory-pathname) (assert-pathname-equal true
(probe-file* file :truename t))) (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)) (assert-pathname-equal true (if-let (x (probe-file* file))
(ensure-absolute-pathname (ensure-directory-pathname x) 'get-pathname-defaults)))) (ensure-absolute-pathname (ensure-directory-pathname x) 'get-pathname-defaults))))
(check-directory-doesnt-exist (file) (check-directory-doesnt-exist (file)
......
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