Skip to content
Snippets Groups Projects
Commit 9f0f8038 authored by Robert Goldman's avatar Robert Goldman
Browse files

Fix bug in OS conditionalization.

parent 594173e8
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment