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

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." ...@@ -127,7 +127,7 @@ or NIL if not found."
(defvar *preloaded-systems* (make-hash-table :test 'equal) (defvar *preloaded-systems* (make-hash-table :test 'equal)
"Registration table for preloaded systems.") "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) (defun make-preloaded-system (name keys)
"Make a preloaded system of given NAME with build information from KEYS" "Make a preloaded system of given NAME with build information from KEYS"
......
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