X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-error.lisp;h=a206630cbeaff1a35627dd5a2d11937cd7123efc;hb=148e3820ad314a9b59d0133c1d60eaac4af9118b;hp=747b54f10ade4c0a5c6843e71d68e3dda9fcd940;hpb=0957d59ccfaf3db9aaf79a7f4909a40ea0ca0dcd;p=sbcl.git

diff --git a/src/code/target-error.lisp b/src/code/target-error.lisp
index 747b54f..a206630 100644
--- a/src/code/target-error.lisp
+++ b/src/code/target-error.lisp
@@ -112,10 +112,12 @@
    returned. It is an error to supply NIL as a name. If CONDITION is specified
    and not NIL, then only restarts associated with that condition (or with no
    condition) will be returned."
-  (find-if (lambda (x)
-	     (or (eq x name)
-		 (eq (restart-name x) name)))
-	   (compute-restarts condition)))
+  (let ((restarts (compute-restarts condition)))
+    (declare (type list restarts))
+    (find-if (lambda (x)
+               (or (eq x name)
+                   (eq (restart-name x) name)))
+             restarts)))
 
 (defun invoke-restart (restart &rest values)
   #!+sb-doc