X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fvmdef.lisp;h=0d0376820c29163127f463a4f22c23c76e63c7fc;hb=fdf07da187cb31fd5bdd872c73245fd72877b1a1;hp=9ed8e2ba435323874ad2bc3ade30d2a96c0c894b;hpb=0c58c96998aab7f3179b74ef7462190e59563e2e;p=sbcl.git

diff --git a/src/compiler/vmdef.lisp b/src/compiler/vmdef.lisp
index 9ed8e2b..0d03768 100644
--- 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,7 +201,7 @@
   (flet ((convert (types more-types)
 	   (flet ((frob (x)
 		    (if (eq x '*)
-			't
+			t
 			(ecase (first x)
 			  (:or `(or ,@(mapcar #'(lambda (type)
 						  (type-specifier