X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Faliencomp.lisp;h=ead78df5e868eca0ab5374ea6b4ddb66d437aa64;hb=90ca09b75fbc3b63b2f7d09c67b04b866dd783f6;hp=bcb569c3b1413227ee65cfae363e7feaa0f53e77;hpb=50305b602c3953440af716137a56f50cd204375d;p=sbcl.git

diff --git a/src/compiler/aliencomp.lisp b/src/compiler/aliencomp.lisp
index bcb569c..ead78df 100644
--- a/src/compiler/aliencomp.lisp
+++ b/src/compiler/aliencomp.lisp
@@ -186,7 +186,7 @@
     (typecase alien-type
       (alien-pointer-type
        (when (cdr indices)
-	 (abort-ir1-transform "too many indices for pointer deref: ~D"
+	 (abort-ir1-transform "too many indices for pointer deref: ~W"
 			      (length indices)))
        (let ((element-type (alien-pointer-type-to alien-type)))
 	 (if indices
@@ -521,7 +521,7 @@
 	 (count-low-order-zeros (continuation-value thing))
 	 (count-low-order-zeros (continuation-use thing))))
     (combination
-     (case (continuation-function-name (combination-fun thing))
+     (case (continuation-fun-name (combination-fun thing))
        ((+ -)
 	(let ((min most-positive-fixnum)
 	      (itype (specifier-type 'integer)))
@@ -572,7 +572,7 @@
 (deftransform ash ((value amount))
   (let ((value-node (continuation-use value)))
     (unless (and (combination-p value-node)
-		 (eq (continuation-function-name (combination-fun value-node))
+		 (eq (continuation-fun-name (combination-fun value-node))
 		     'ash))
       (give-up-ir1-transform))
     (let ((inside-args (combination-args value-node)))
@@ -607,7 +607,7 @@
       (let ((arg-types (alien-fun-type-arg-types alien-type)))
 	(unless (= (length args) (length arg-types))
 	  (abort-ir1-transform
-	   "wrong number of arguments; expected ~D, got ~D"
+	   "wrong number of arguments; expected ~W, got ~W"
 	   (length arg-types)
 	   (length args)))
 	(collect ((params) (deports))