X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fstatic-fn.lisp;h=820b676d0daed879545215495a86354f80a51690;hb=581e3d62de8cb37e13ad9db63e5537c0f962be28;hp=faf19e660396fca9dba4576df7f9a6d3ab07962e;hpb=c716f6ea5255afeb33a1181535b5c067aa9d6aaa;p=sbcl.git

diff --git a/src/compiler/ppc/static-fn.lisp b/src/compiler/ppc/static-fn.lisp
index faf19e6..820b676 100644
--- 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