common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

to support symbolic linked systems.

Browse source
This commit is contained in:
SANO Masatoshi 2017-04-28 21:56:51 +09:00
parent c4f43f796e
commit b58a107faf
1 changed files with 0 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/util-install-quicklisp.lisp
View file

@ -168,9 +168,6 @@
(format *error-output* "~&[~a/3] Attempting to install the scripts in ~
roswell/ subdirectory of the system...~%" (incf step))
(and (ql:where-is-system system)
(let ((a (namestring (truename (homedir))))
(b (namestring (truename (ql:where-is-system system)))))
(string= a b :end2 (min (length a) (length b))))
(let ((scripts (directory (merge-pathnames "roswell/*.*" (ql:where-is-system system)))))
(if scripts
(format t "~&Found ~a scripts:~{ ~a~}~%"