Commit 96ea9270 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix declaim ftype for mark-component-preloaded

SBCL cares about type declarations, and the declared ftype became a lie
after allowing arbitrary component designators rather than only components
in calls to mark-component-preloaded, which *sometimes* caused errors.
parent 32b945ab
......@@ -127,7 +127,7 @@ or NIL if not found."
(defvar *preloaded-systems* (make-hash-table :test 'equal)
"Registration table for preloaded systems.")
(declaim (ftype (function (component) t) mark-component-preloaded)) ; defined in asdf/operate
(declaim (ftype (function (t) t) mark-component-preloaded)) ; defined in asdf/operate
(defun make-preloaded-system (name keys)
"Make a preloaded system of given NAME with build information from KEYS"
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