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

Fix XCL support, broken by a missing #+xcl clause in a4fdf6f9.

parent ba507090
No related branches found
No related tags found
No related merge requests found
......@@ -207,7 +207,7 @@ when merging, making or parsing pathnames")
where leaving the defaults NIL or unspecified means a (NIL-PATHNAME), except
on ABCL, Genera and XCL, where it remains unchanged for it doubles as current-directory."
`(let ((*default-pathname-defaults*
,(or defaults #-(or abcl genera xcl) '*nil-pathname* #+(or abcl genera) '*default-pathname-defaults*)))
,(or defaults #-(or abcl genera xcl) '*nil-pathname* #+(or abcl genera xcl) '*default-pathname-defaults*)))
,@body)))
......
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