0.6.10.21:

[sbcl.git] / src / pcl / dlisp.lisp

diff --git a/src/pcl/dlisp.lisp b/src/pcl/dlisp.lisp
index b42997a..0f69b49 100644 (file)
--- a/src/pcl/dlisp.lisp
+++ b/src/pcl/dlisp.lisp
@@ -254,7 +254,7 @@
 (defun emit-dlap (args metatypes hit miss value-reg &optional slot-regs)
   (let* ((index -1)
         (wrapper-bindings (mapcan #'(lambda (arg mt)
-                                      (unless (eq mt 't)
+                                      (unless (eq mt t)
                                         (incf index)
                                         `((,(intern (format nil
                                                             "WRAPPER-~D"