Commit cf8a8202 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

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

parent ba507090
......@@ -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)))
......
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