From 96ea927078fc4d11c09bc3e9ad30352a054ac99d Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <fare@tunes.org> Date: Sat, 17 Sep 2016 11:47:44 -0400 Subject: [PATCH] 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. --- find-system.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/find-system.lisp b/find-system.lisp index e754c991b..084d133fa 100644 --- a/find-system.lisp +++ b/find-system.lisp @@ -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" -- GitLab