0.pre7.141:

[sbcl.git] / src / compiler / vmdef.lisp

diff --git a/src/compiler/vmdef.lisp b/src/compiler/vmdef.lisp
index 9ed8e2b..f9882be 100644 (file)
--- a/src/compiler/vmdef.lisp
+++ b/src/compiler/vmdef.lisp
@@ -97,6 +97,9 @@
 ;;;; generation of emit functions
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
+  ;; We need the EVAL-WHEN because %EMIT-GENERIC-VOP (below)
+  ;; uses #.MAX-VOP-TN-REFS, not just MAX-VOP-TN-REFS.
+  ;; -- AL 20010218
   (defconstant max-vop-tn-refs 256))
 
 (defvar *vop-tn-refs* (make-array max-vop-tn-refs :initial-element nil))
@@ -198,14 +201,14 @@
   (flet ((convert (types more-types)
           (flet ((frob (x)
                    (if (eq x '*)
-                       't
+                       t
                        (ecase (first x)
-                         (:or `(or ,@(mapcar #'(lambda (type)
-                                                 (type-specifier
-                                                  (primitive-type-type
-                                                   type)))
+                         (:or `(or ,@(mapcar (lambda (type)
+                                               (type-specifier
+                                                (primitive-type-type
+                                                 type)))
                                              (rest x))))
-                         (:constant `(constant-argument ,(third x)))))))
+                         (:constant `(constant-arg ,(third x)))))))
             `(,@(mapcar #'frob types)
               ,@(when more-types
                   `(&rest ,(frob more-types)))))))