projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.6.12.13:
[sbcl.git]
/
src
/
code
/
byte-interp.lisp
diff --git
a/src/code/byte-interp.lisp
b/src/code/byte-interp.lisp
index
53afca7
..
a890b0a
100644
(file)
--- a/
src/code/byte-interp.lisp
+++ b/
src/code/byte-interp.lisp
@@
-27,19
+27,19
@@
(etypecase x
(simple-byte-function
`(function ,(make-list (simple-byte-function-num-args x)
(etypecase x
(simple-byte-function
`(function ,(make-list (simple-byte-function-num-args x)
- :initial-element 't)
+ :initial-element t)
*))
(hairy-byte-function
(collect ((res))
(let ((min (hairy-byte-function-min-args x))
(max (hairy-byte-function-max-args x)))
*))
(hairy-byte-function
(collect ((res))
(let ((min (hairy-byte-function-min-args x))
(max (hairy-byte-function-max-args x)))
- (dotimes (i min) (res 't))
+ (dotimes (i min) (res t))
(when (> max min)
(res '&optional)
(dotimes (i (- max min))
(when (> max min)
(res '&optional)
(dotimes (i (- max min))
- (res 't))))
+ (res t))))
(when (hairy-byte-function-rest-arg-p x)
(when (hairy-byte-function-rest-arg-p x)
- (res '&rest 't))
+ (res '&rest t))
(ecase (hairy-byte-function-keywords-p x)
((t :allow-others)
(res '&key)
(ecase (hairy-byte-function-keywords-p x)
((t :allow-others)
(res '&key)
@@
-1198,7
+1198,7
@@
(type stack-pointer more-args-start))
(cond
((not (hairy-byte-function-keywords-p xep))
(type stack-pointer more-args-start))
(cond
((not (hairy-byte-function-keywords-p xep))
- (assert restp)
+ (aver restp)
(setf (current-stack-pointer) (1+ more-args-start))
(setf (eval-stack-ref more-args-start) rest))
(t
(setf (current-stack-pointer) (1+ more-args-start))
(setf (eval-stack-ref more-args-start) rest))
(t