X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1-translators.lisp;h=88f8ff3f5f80f6feea06f3f27406e6e42c8a08ec;hb=3a2c2a2217f77e0d1a44a581c83e0311ebc2594a;hp=e89af4d35be0090bdae705928348841a0a1fdb5a;hpb=ffa9a31f62e3e2abab8ebcbb3bfdab9725feaf7f;p=sbcl.git

diff --git a/src/compiler/ir1-translators.lisp b/src/compiler/ir1-translators.lisp
index e89af4d..88f8ff3 100644
--- a/src/compiler/ir1-translators.lisp
+++ b/src/compiler/ir1-translators.lisp
@@ -342,7 +342,7 @@
             (fail "Attempt to bind a ~(~A~) variable with SYMBOL-MACROLET: ~S"
                   kind name)))
 	;; A magical cons that MACROEXPAND-1 understands.
-        `(,name . (MACRO . ,expansion))))))
+        `(,name . (macro . ,expansion))))))
 
 (defun funcall-in-symbol-macrolet-lexenv (definitions fun context)
   (%funcall-in-foomacrolet-lexenv
@@ -836,7 +836,7 @@
 		  name)))
 	     (setq-var start next result leaf (second things)))
 	    (cons
-	     (aver (eq (car leaf) 'MACRO))
+	     (aver (eq (car leaf) 'macro))
              ;; FIXME: [Free] type declaration. -- APD, 2002-01-26
 	     (ir1-convert start next result
                           `(setf ,(cdr leaf) ,(second things))))