Commit e98fb528 authored by Antoine Martin's avatar Antoine Martin
Browse files

If no release is found, use name directly

parent dbfa2601
......@@ -17,7 +17,7 @@
(format t "STARTED BUILDING PACKAGE ~A~%" primary-system)
(ql:quickload primary-system)
;; #### TODO: See about providing more information to the DECLT call.
(declt:declt primary-system
(declt:declt (or primary-system cl-user::*qrmapper-object-name*)
:library cl-user::*qrmapper-object-name*
:texi-file (quickref:from-quickref-dir
(format nil "texis/~A.texi"
......
......@@ -53,7 +53,9 @@
(defun get-primary-system-name (release)
"Returns the name of the primary system, given a Quicklisp release name."
(let ((project (remove-cl-prefix release))
(provided-systems (get-provided-systems release)))
(provided-systems (handler-case (get-provided-systems release)
(error ()
(return-from get-primary-system-name nil)))))
(ql-dist:name
(or (find project provided-systems
:key #'get-trimmed-system-name
......
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