X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmeta-vmdef.lisp;h=90cfd02484b0ab3fda4938ee11e73890a2dc9bc6;hb=ba7659c92f2b7fac7e9532a3db9114c5bdc4ab55;hp=d8143945aedde3d108df8928f4e05826f2d965bd;hpb=7fd2eb4b1bc68e8aaec233c4a39bdfc40225bda2;p=sbcl.git

diff --git a/src/compiler/meta-vmdef.lisp b/src/compiler/meta-vmdef.lisp
index d814394..90cfd02 100644
--- a/src/compiler/meta-vmdef.lisp
+++ b/src/compiler/meta-vmdef.lisp
@@ -274,7 +274,7 @@
 (defmacro !def-primitive-type (name scs &key (type name))
   (declare (type symbol name) (type list scs))
   (let ((scns (mapcar #'meta-sc-number-or-lose scs))
-	(get-type `(specifier-type ',type)))
+	(ctype-form `(specifier-type ',type)))
     `(progn
        (/show0 "doing !DEF-PRIMITIVE-TYPE, NAME=..")
        (/primitive-print ,(symbol-name name))
@@ -282,9 +282,9 @@
 	 (setf (gethash ',name *backend-meta-primitive-type-names*)
 	       (make-primitive-type :name ',name
 				    :scs ',scns
-				    :type ,get-type)))
+				    :type ,ctype-form)))
        ,(once-only ((n-old `(gethash ',name *backend-primitive-type-names*))
-		    (n-type get-type))
+		    (n-type ctype-form))
 	  `(progn
 	     ;; If the PRIMITIVE-TYPE structure already exists, we
 	     ;; destructively modify it so that existing references in
@@ -458,7 +458,7 @@
   ;; name of the operand (which we bind to the TN)
   (name nil :type symbol)
   ;; the way this operand is used:
-  (kind (required-argument)
+  (kind (missing-arg)
 	:type (member :argument :result :temporary
 		      :more-argument :more-result))
   ;; If true, the name of an operand that this operand is targeted to.
@@ -1022,7 +1022,7 @@
 			    :key #'operand-parse-name))))))
   (values))
 
-;;; the top-level parse function: clobber PARSE to represent the
+;;; the top level parse function: clobber PARSE to represent the
 ;;; specified options.
 (defun parse-define-vop (parse specs)
   (declare (type vop-parse parse) (list specs))
@@ -1921,9 +1921,7 @@
 (defmacro do-physenv-ir2-blocks ((block-var physenv &optional result)
 				 &body body)
   (once-only ((n-physenv physenv))
-    (once-only ((n-first `(node-block
-			   (lambda-bind
-			    (physenv-function ,n-physenv)))))
+    (once-only ((n-first `(lambda-block (physenv-lambda ,n-physenv))))
       (once-only ((n-tail `(block-info
 			    (component-tail
 			     (block-component ,n-first)))))