Skip to content
Snippets Groups Projects
Commit ba507090 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

test-utilities: move paren around.

parent 50d61463
No related branches found
No related tags found
No related merge requests found
...@@ -64,7 +64,7 @@ ...@@ -64,7 +64,7 @@
(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 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 (nest #+(or allegro (and clisp windows)) (ensure-directory-pathname)
(probe-file* file :truename t))) (probe-file* file :truename t)))
(assert-pathname-equal true (if-let (x (probe-file* file)) (assert-pathname-equal true (if-let (x (probe-file* file))
...@@ -122,7 +122,7 @@ ...@@ -122,7 +122,7 @@
;; For the rest of this test, use these: ;; For the rest of this test, use these:
(setf *default-pathname-defaults* (nil-pathname)) (setf *default-pathname-defaults* (nil-pathname))
(chdir test-directory)))) (chdir test-directory)))
(assert (assert
(every #'directory-pathname-p (every #'directory-pathname-p
......
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