projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre8.4
[sbcl.git]
/
src
/
compiler
/
alpha
/
subprim.lisp
diff --git
a/src/compiler/alpha/subprim.lisp
b/src/compiler/alpha/subprim.lisp
index
6473c83
..
d81cf12
100644
(file)
--- a/
src/compiler/alpha/subprim.lisp
+++ b/
src/compiler/alpha/subprim.lisp
@@
-35,10
+35,10
@@
(inst bne temp done)
(inst and ptr lowtag-mask temp)
(inst bne temp done)
(inst and ptr lowtag-mask temp)
- (inst xor temp list-pointer-type temp)
+ (inst xor temp list-pointer-lowtag temp)
(inst bne temp not-list)
(inst bne temp not-list)
- (loadw ptr ptr cons-cdr-slot list-pointer-type)
+ (loadw ptr ptr cons-cdr-slot list-pointer-lowtag)
(inst addq count (fixnumize 1) count)
(inst br zero-tn loop)
(inst addq count (fixnumize 1) count)
(inst br zero-tn loop)
@@
-48,4
+48,4
@@
DONE
(move count result)))
DONE
(move count result)))
-(define-static-function length (object) :translate length)
+(define-static-fun length (object) :translate length)