projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.139:
[sbcl.git]
/
src
/
compiler
/
alpha
/
macros.lisp
diff --git
a/src/compiler/alpha/macros.lisp
b/src/compiler/alpha/macros.lisp
index
958e05a
..
96eb188
100644
(file)
--- a/
src/compiler/alpha/macros.lisp
+++ b/
src/compiler/alpha/macros.lisp
@@
-200,12
+200,12
@@
(inst gentrap ,kind)
(with-adjustable-vector (,vector)
(write-var-integer (error-number-or-lose ',code) ,vector)
(inst gentrap ,kind)
(with-adjustable-vector (,vector)
(write-var-integer (error-number-or-lose ',code) ,vector)
- ,@(mapcar #'(lambda (tn)
- `(let ((tn ,tn))
- (write-var-integer (make-sc-offset (sc-number
- (tn-sc tn))
- (tn-offset tn))
- ,vector)))
+ ,@(mapcar (lambda (tn)
+ `(let ((tn ,tn))
+ (write-var-integer (make-sc-offset (sc-number
+ (tn-sc tn))
+ (tn-offset tn))
+ ,vector)))
values)
(inst byte (length ,vector))
(dotimes (i (length ,vector))
values)
(inst byte (length ,vector))
(dotimes (i (length ,vector))