projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ADJOIN shouldn't constant fold.
[sbcl.git]
/
tests
/
vm.before-xc.lisp
diff --git
a/tests/vm.before-xc.lisp
b/tests/vm.before-xc.lisp
index
3fd2f2f
..
7471802
100644
(file)
--- a/
tests/vm.before-xc.lisp
+++ b/
tests/vm.before-xc.lisp
@@
-19,10
+19,10
@@
(flet ((yes (x)
(assert
(eql (sc-number-or-lose 'immediate)
(flet ((yes (x)
(assert
(eql (sc-number-or-lose 'immediate)
- (impl-of-vm-support-routine-immediate-constant-sc x))))
+ (immediate-constant-sc x))))
(no (x)
(assert
(no (x)
(assert
- (not (impl-of-vm-support-routine-immediate-constant-sc x)))))
+ (not (immediate-constant-sc x)))))
;; target fixnums can be dealt with as immediates; target bignums
;; can not.
(yes #.sb-xc:most-positive-fixnum)
;; target fixnums can be dealt with as immediates; target bignums
;; can not.
(yes #.sb-xc:most-positive-fixnum)