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