Commit c92dd5d4 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Don't try .lnk on Windows for logical pathnames. Avoids failure on SBCL.

parent c43d8e90
......@@ -168,7 +168,7 @@ Going forward, we recommend new users should be using the source-registry.
:truename truename))
(return file))
#-(or clisp genera) ; clisp doesn't need it, plain genera doesn't have read-sequence(!)
(when (os-windows-p)
(when (and (os-windows-p) (physical-pathname-p defaults))
(let ((shortcut
(make-pathname
:defaults defaults :case :local
......
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