0.8.2.29:

[sbcl.git] / src / code / early-extensions.lisp

diff --git a/src/code/early-extensions.lisp b/src/code/early-extensions.lisp
index e195215..c5cf3b2 100644 (file)
--- a/src/code/early-extensions.lisp
+++ b/src/code/early-extensions.lisp
@@ -288,7 +288,7 @@
   ;; just define ASSQ explicitly in terms of more primitive
   ;; operations:
   (dolist (pair alist)
-    (when (eq (car pair) item)
+    (when (and pair (eq (car pair) item))
       (return pair))))
 
 ;;; like (DELETE .. :TEST #'EQ):