projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.7.20:
[sbcl.git]
/
src
/
compiler
/
ppc
/
static-fn.lisp
diff --git
a/src/compiler/ppc/static-fn.lisp
b/src/compiler/ppc/static-fn.lisp
index
faf19e6
..
820b676
100644
(file)
--- a/
src/compiler/ppc/static-fn.lisp
+++ b/
src/compiler/ppc/static-fn.lisp
@@
-105,8
+105,7
@@
,@(moves (result-names) (temp-names))))))))
,@(moves (result-names) (temp-names))))))))
-) ; eval-when (:compile-toplevel :load-toplevel :execute)
-
+) ; EVAL-WHEN
(macrolet ((frob (num-args num-res)
(static-fun-template-vop (eval num-args) (eval num-res))))
(macrolet ((frob (num-args num-res)
(static-fun-template-vop (eval num-args) (eval num-res))))
@@
-117,7
+116,6
@@
(frob 4 1)
#|(frob 5 1)|#)
(frob 4 1)
#|(frob 5 1)|#)
-
(defmacro define-static-fun (name args &key (results '(x)) translate
policy cost arg-types result-types)
`(define-vop (,name
(defmacro define-static-fun (name args &key (results '(x)) translate
policy cost arg-types result-types)
`(define-vop (,name