1.0.17.24: refactor handling of constants in the compiler

[sbcl.git] / src / code / defboot.lisp

diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp
index b2189a4..38199fa 100644 (file)
--- a/src/code/defboot.lisp
+++ b/src/code/defboot.lisp
@@ -582,7 +582,7 @@ evaluated as a PROGN."
                                                           (prog1 (eq 'lambda (caadr handler))
                                                             (setf lambda-form (cadr handler)))))
                                                  ;; KLUDGE: DX-FLET doesn't handle non-required arguments yet.
-                                                 (not (intersection (second lambda-form) lambda-list-keywords)))
+                                                 (not (intersection (second lambda-form) sb!xc:lambda-list-keywords)))
                                             (let ((name (gensym "LAMBDA")))
                                               (push `(,name ,@(cdr lambda-form)) local-funs)
                                               (list type `(function ,name)))