From 6fb171800a16080d52be41f10155f96fd48a3b61 Mon Sep 17 00:00:00 2001
From: Alexander Artemenko <svetlyak.40wt@gmail.com>
Date: Sun, 28 Jan 2018 01:14:18 +0300
Subject: [PATCH] Fixed handling of missing systems.

---
 src/core.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/core.lisp b/src/core.lisp
index f130d36..1c2569d 100644
--- a/src/core.lisp
+++ b/src/core.lisp
@@ -85,7 +85,8 @@ QL:  ~{~A~^~%~}
 
 
 (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
         (make-instance 'system-info
                        :name system-name
@@ -93,7 +94,7 @@ QL:  ~{~A~^~%~}
                        :path (asdf:component-pathname system))
         (make-instance 'system-info
                        :name system-name
-                       :absent-p t
+                       :absent t
                        :version nil
                        :path nil))))