Changeset 11789

Timestamp:

04/27/09 21:10:24 (15 years ago)

Author:

vvoutilainen

Message:

Tiny cleanup to invocations of compile-xep.

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp (modified) (4 diffs)

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

@@ -859 +859 @@
 (initialize-p1-handlers)
 
+(defun invoke-compile-xep (xep-lambda-expression compiland)
+  (let ((xep-compiland
+   (make-compiland :lambda-expression 
+       (precompile-form xep-lambda-expression t)
+       :class-file (compiland-class-file compiland))))
+    (compile-xep xep-compiland)))
+
 (defun p1-compiland (compiland)
 ;;   (format t "p1-compiland name = ~S~%" (compiland-name compiland))
@@ -902 +909 @@
                                      (%call-internal ,@all-args)))))
                            (dformat t "xep-lambda-expression = ~S~%" xep-lambda-expression)
-                           (let ((xep-compiland
-                                  (make-compiland :lambda-expression (precompile-form xep-lambda-expression t)
-                                                  :class-file (compiland-class-file compiland))))
-                             (compile-xep xep-compiland)))
+         (invoke-compile-xep xep-lambda-expression compiland))
                          (let ((xep-lambda-expression
                                 `(lambda ,(append required-args (list name))
@@ -911 +915 @@
                                      (%call-internal ,@all-args)))))
                            (dformat t "xep-lambda-expression = ~S~%" xep-lambda-expression)
-                           (let ((xep-compiland
-                                  (make-compiland :lambda-expression (precompile-form xep-lambda-expression t)
-                                                  :class-file (compiland-class-file compiland))))
-                             (compile-xep xep-compiland)))
+         (invoke-compile-xep xep-lambda-expression compiland))
                          (setf lambda-list all-args)
                          (setf (compiland-kind compiland) :internal))
@@ -923 +924 @@
                                      (,(compiland-name compiland) ,@all-args)))))
                            (dformat t "xep-lambda-expression = ~S~%" xep-lambda-expression)
-                           (let ((xep-compiland
-                                  (make-compiland :lambda-expression (precompile-form xep-lambda-expression t)
-                                                  :class-file (compiland-class-file compiland))))
-                             (compile-xep xep-compiland)))
+         (invoke-compile-xep xep-lambda-expression compiland))
                          (setf lambda-list all-args))))))))))