projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.6.11.37:
[sbcl.git]
/
src
/
code
/
byte-interp.lisp
diff --git
a/src/code/byte-interp.lisp
b/src/code/byte-interp.lisp
index
aaafdfa
..
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)