X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Farray-tran.lisp;h=4b4337f813b9f9b50e200879559b71ccae4e5a54;hb=90ca09b75fbc3b63b2f7d09c67b04b866dd783f6;hp=e94f70dbba8a892122d47ec8f968055482733bbf;hpb=4eb1a6d3ad2b7dcc19ac0ec979a1eb1eb049659a;p=sbcl.git

diff --git a/src/compiler/array-tran.lisp b/src/compiler/array-tran.lisp
index e94f70d..4b4337f 100644
--- a/src/compiler/array-tran.lisp
+++ b/src/compiler/array-tran.lisp
@@ -141,7 +141,7 @@
 
 ;;; Convert VECTOR into a MAKE-ARRAY followed by SETFs of all the
 ;;; elements.
-(def-source-transform vector (&rest elements)
+(define-source-transform vector (&rest elements)
   (let ((len (length elements))
 	(n -1))
     (once-only ((n-vec `(make-array ,len)))
@@ -155,10 +155,10 @@
 	 ,n-vec))))
 
 ;;; Just convert it into a MAKE-ARRAY.
-(def-source-transform make-string (length &key
-					  (element-type ''base-char)
-					  (initial-element
-					   '#.*default-init-char-form*))
+(define-source-transform make-string (length &key
+					     (element-type ''base-char)
+					     (initial-element
+					      '#.*default-init-char-form*))
   `(make-array (the index ,length)
 	       :element-type ,element-type
 	       :initial-element ,initial-element))
@@ -379,7 +379,7 @@
 	(give-up-ir1-transform
 	 "The array dimensions are unknown; must call ARRAY-DIMENSION at runtime."))
       (unless (> (length dims) axis)
-	(abort-ir1-transform "The array has dimensions ~S, ~D is too large."
+	(abort-ir1-transform "The array has dimensions ~S, ~W is too large."
 			     dims
 			     axis))
       (let ((dim (nth axis dims)))
@@ -548,14 +548,14 @@
 	      (cond (,end
 		     (unless (or ,unsafe? (<= ,end ,size))
 		       ,(if fail-inline?
-			    `(error "End ~D is greater than total size ~D."
+			    `(error "End ~W is greater than total size ~W."
 				    ,end ,size)
 			    `(failed-%with-array-data ,array ,start ,end)))
 		     ,end)
 		    (t ,size))))
        (unless (or ,unsafe? (<= ,start ,defaulted-end))
 	 ,(if fail-inline?
-	      `(error "Start ~D is greater than end ~D." ,start ,defaulted-end)
+	      `(error "Start ~W is greater than end ~W." ,start ,defaulted-end)
 	      `(failed-%with-array-data ,array ,start ,end)))
        (do ((,data ,array (%array-data-vector ,data))
 	    (,cumulative-offset 0
@@ -595,9 +595,9 @@
 ;;; assertions on the array.
 (macrolet ((define-frob (reffer setter type)
 	     `(progn
-		(def-source-transform ,reffer (a &rest i)
+		(define-source-transform ,reffer (a &rest i)
 		  `(aref (the ,',type ,a) ,@i))
-		(def-source-transform ,setter (a &rest i)
+		(define-source-transform ,setter (a &rest i)
 		  `(%aset (the ,',type ,a) ,@i)))))
   (define-frob svref %svset simple-vector)
   (define-frob schar %scharset simple-string)