X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Frepresent.lisp;h=ad0add77c0594c0bd592a9dcb6a0decbf170af7c;hb=fb91e1987cc40f3f698f2972d0de50426ec3086f;hp=99df597f5d97790c76f3fac7c11f7f90729784e3;hpb=d40a76606c86722b0aef8179155f9f2840739b72;p=sbcl.git

diff --git a/src/compiler/represent.lisp b/src/compiler/represent.lisp
index 99df597..ad0add7 100644
--- a/src/compiler/represent.lisp
+++ b/src/compiler/represent.lisp
@@ -175,7 +175,7 @@
 
 (defun bad-move-arg-error (val pass)
   (declare (type tn val pass))
-  (error "no :MOVE-ARGUMENT VOP defined to move ~S (SC ~S) to ~
+  (error "no :MOVE-ARG VOP defined to move ~S (SC ~S) to ~
 	  ~S (SC ~S)"
 	 val (sc-name (tn-sc val))
 	 pass (sc-name (tn-sc pass))))
@@ -346,7 +346,7 @@
 ;;; If policy indicates, give an efficiency note for doing the
 ;;; coercion VOP, where OP is the operand we are coercing for and
 ;;; DEST-TN is the distinct destination in a move.
-(defun do-coerce-efficiency-note (vop op dest-tn)
+(defun maybe-emit-coerce-efficiency-note (vop op dest-tn)
   (declare (type vop-info vop) (type tn-ref op) (type (or tn null) dest-tn))
   (let* ((note (or (template-note vop) (template-name vop)))
 	 (cost (template-cost vop))
@@ -382,7 +382,7 @@
 
 ;;; Find a move VOP to move from the operand OP-TN to some other
 ;;; representation corresponding to OTHER-SC and OTHER-PTYPE. SLOT is
-;;; the SC slot that we grab from (move or move-argument). WRITE-P
+;;; the SC slot that we grab from (move or move-arg). WRITE-P
 ;;; indicates that OP is a VOP result, so OP is the move result and
 ;;; other is the arg, otherwise OP is the arg and other is the result.
 ;;;
@@ -453,7 +453,7 @@
 		 (when res
 		   (when (>= (vop-info-cost res)
 			     *efficiency-note-cost-threshold*)
-		     (do-coerce-efficiency-note res op dest-tn))
+		     (maybe-emit-coerce-efficiency-note res op dest-tn))
 		   (let ((temp (make-representation-tn ptype scn)))
 		     (change-tn-ref-tn op temp)
 		     (cond
@@ -599,7 +599,7 @@
 		(res
 		 (when (>= (vop-info-cost res)
 			   *efficiency-note-cost-threshold*)
-		   (do-coerce-efficiency-note res args y))
+		   (maybe-emit-coerce-efficiency-note res args y))
 		 (emit-move-template node block res x y vop)
 		 (delete-vop vop))
 		(t