Changeset 13533

Timestamp:

08/23/11 12:48:24 (10 years ago)

Author:

ehuelsmann

Message:

Remove two unnecessary EVAL-WHEN forms.

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp

@@ -32 +32 @@
 (in-package "JVM")
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (require "LOOP")
-  (require "FORMAT")
-  (require "CLOS")
-  (require "PRINT-OBJECT")
-  (require "COMPILER-TYPES")
-  (require "KNOWN-FUNCTIONS")
-  (require "KNOWN-SYMBOLS")
-  (require "DUMP-FORM")
-  (require "OPCODES")
-  (require "JAVA"))
-
-
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (defun generate-inline-expansion (name lambda-list body
-            &optional (args nil args-p))
-    "Generates code that can be used to expand a named local function inline. It can work either per-function (no args provided) or per-call."
-    (if args-p
-  (expand-function-call-inline
-   nil lambda-list
-   (copy-tree `((block ,name ,@body)))
-   args)
-  (cond ((intersection lambda-list
-           '(&optional &rest &key &allow-other-keys &aux)
-           :test #'eq)
-         nil)
-        (t
-         (setf body (copy-tree body))
-         (list 'LAMBDA lambda-list
-         (list* 'BLOCK name body))))))
-    ) ; EVAL-WHEN
+(require "LOOP")
+(require "FORMAT")
+(require "CLOS")
+(require "PRINT-OBJECT")
+(require "COMPILER-TYPES")
+(require "KNOWN-FUNCTIONS")
+(require "KNOWN-SYMBOLS")
+(require "DUMP-FORM")
+(require "OPCODES")
+(require "JAVA")
+
+
+(defun generate-inline-expansion (name lambda-list body
+                                  &optional (args nil args-p))
+  "Generates code that can be used to expand a named local function inline.
+It can work either per-function (no args provided) or per-call."
+  (if args-p
+      (expand-function-call-inline nil lambda-list
+                                   (copy-tree `((block ,name ,@body)))
+                                   args)
+      (cond ((intersection lambda-list
+                           '(&optional &rest &key &allow-other-keys &aux)
+                           :test #'eq)
+             nil)
+            (t
+             (setf body (copy-tree body))
+             (list 'LAMBDA lambda-list
+                   (list* 'BLOCK name body))))))
+
 
 ;;; Pass 1.