0.7.7.26:

[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))))))))
 
 
-) ; 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))))
@@ -117,7 +116,6 @@
   (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