Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
9f0f8038
Commit
9f0f8038
authored
Jul 09, 2015
by
Robert Goldman
Browse files
Fix bug in OS conditionalization.
parent
594173e8
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/test-utilities.script
View file @
9f0f8038
...
...
@@ -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)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment