Commit 8308b237 authored by D Herring's avatar D Herring
Browse files

CCL Windows shortcut bugfix

Clozure 1.3 isn't putting win32 into *features*.
parent 187895ab
......@@ -492,13 +492,13 @@ actually-existing directory."
(let* ((file (make-pathname
:defaults defaults :version :newest
:name name :type "asd" :case :local))
#+(or win32 windows)
(shortcut (make-pathname
:defaults defaults :version :newest
:name name :type "asd.lnk" :case :local)))
(when (probe-file file)
(return file))
#+(or win32 windows)
(when (probe-file shortcut)
(let ((target (parse-windows-shortcut shortcut)))
(when target
Supports Markdown
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