projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.110:
[sbcl.git]
/
src
/
compiler
/
aliencomp.lisp
diff --git
a/src/compiler/aliencomp.lisp
b/src/compiler/aliencomp.lisp
index
bcb569c
..
ead78df
100644
(file)
--- a/
src/compiler/aliencomp.lisp
+++ b/
src/compiler/aliencomp.lisp
@@
-186,7
+186,7
@@
(typecase alien-type
(alien-pointer-type
(when (cdr indices)
(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
(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
(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)))
((+ -)
(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)
(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)))
'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
(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))
(length arg-types)
(length args)))
(collect ((params) (deports))