paku/setup-lisp
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Fixed handling of missing systems.

Browse source
This commit is contained in:
Alexander Artemenko 2018-01-28 01:14:18 +03:00
parent 5b3b2a35af
commit 6fb171800a
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/core.lisp
View file

@ -85,7 +85,8 @@ QL: ~{~A~^~%~}
(defun make-system-info (system-name) (defun make-system-info (system-name)
(let ((system (asdf:find-system system-name))) (let ((system (handler-case (asdf:find-system system-name)
(asdf:missing-component () nil))))
(if system (if system
(make-instance 'system-info (make-instance 'system-info
:name system-name :name system-name
@ -93,7 +94,7 @@ QL: ~{~A~^~%~}
:path (asdf:component-pathname system)) :path (asdf:component-pathname system))
(make-instance 'system-info (make-instance 'system-info
:name system-name :name system-name
:absent-p t :absent t
:version nil :version nil
:path nil)))) :path nil))))