X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fcall.lisp;h=67f5215deac67f6e4ff829652192051eba24ad1a;hb=7c07a6f965c51828d8f452b47e0620d8e6cf2959;hp=04d0f6279c54bfbf4688a01ff84320fe79660f36;hpb=ce02ab2ecd9c6ae2e570abd8c93ebf3be55bbdad;p=sbcl.git

diff --git a/src/compiler/x86/call.lisp b/src/compiler/x86/call.lisp
index 04d0f62..67f5215 100644
--- a/src/compiler/x86/call.lisp
+++ b/src/compiler/x86/call.lisp
@@ -33,7 +33,7 @@
   (declare (ignore standard))
   (make-wired-tn (primitive-type-or-lose 'system-area-pointer)
 		 sap-stack-sc-number return-pc-save-offset))
-;;; If standard is true, then use the standard (full call) location,
+;;; If STANDARD is true, then use the standard (full call) location,
 ;;; otherwise use any legal location.
 ;;;
 ;;; No problems.
@@ -254,7 +254,7 @@
 	    for tn-ref = (tn-ref-across 2nd-tn-ref)
 	    then (tn-ref-across tn-ref)
 	    for count from 2 below register-arg-count
-	    do count (inst mov (tn-ref-tn tn-ref) 2nd-tn))))
+	    do (inst mov (tn-ref-tn tn-ref) 2nd-tn))))
       (inst mov ebx-tn esp-tn)
       (emit-label regs-defaulted)
       (inst mov esp-tn ebx-tn)))
@@ -748,7 +748,7 @@
 ;;; more arg, but there is no new-FP, since the arguments have been set up in
 ;;; the current frame.
 (macrolet ((define-full-call (name named return variable)
-	    (assert (not (and variable (eq return :tail))))
+	    (aver (not (and variable (eq return :tail))))
 	    `(define-vop (,name
 			  ,@(when (eq return :unknown)
 			      '(unknown-values-receiver)))