Changeset 11789


Ignore:
Timestamp:
04/27/09 21:10:24 (15 years ago)
Author:
vvoutilainen
Message:

Tiny cleanup to invocations of compile-xep.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp

    r11712 r11789  
    859859(initialize-p1-handlers)
    860860
     861(defun invoke-compile-xep (xep-lambda-expression compiland)
     862  (let ((xep-compiland
     863   (make-compiland :lambda-expression
     864       (precompile-form xep-lambda-expression t)
     865       :class-file (compiland-class-file compiland))))
     866    (compile-xep xep-compiland)))
     867
    861868(defun p1-compiland (compiland)
    862869;;   (format t "p1-compiland name = ~S~%" (compiland-name compiland))
     
    902909                                     (%call-internal ,@all-args)))))
    903910                           (dformat t "xep-lambda-expression = ~S~%" xep-lambda-expression)
    904                            (let ((xep-compiland
    905                                   (make-compiland :lambda-expression (precompile-form xep-lambda-expression t)
    906                                                   :class-file (compiland-class-file compiland))))
    907                              (compile-xep xep-compiland)))
     911         (invoke-compile-xep xep-lambda-expression compiland))
    908912                         (let ((xep-lambda-expression
    909913                                `(lambda ,(append required-args (list name))
     
    911915                                     (%call-internal ,@all-args)))))
    912916                           (dformat t "xep-lambda-expression = ~S~%" xep-lambda-expression)
    913                            (let ((xep-compiland
    914                                   (make-compiland :lambda-expression (precompile-form xep-lambda-expression t)
    915                                                   :class-file (compiland-class-file compiland))))
    916                              (compile-xep xep-compiland)))
     917         (invoke-compile-xep xep-lambda-expression compiland))
    917918                         (setf lambda-list all-args)
    918919                         (setf (compiland-kind compiland) :internal))
     
    923924                                     (,(compiland-name compiland) ,@all-args)))))
    924925                           (dformat t "xep-lambda-expression = ~S~%" xep-lambda-expression)
    925                            (let ((xep-compiland
    926                                   (make-compiland :lambda-expression (precompile-form xep-lambda-expression t)
    927                                                   :class-file (compiland-class-file compiland))))
    928                              (compile-xep xep-compiland)))
     926         (invoke-compile-xep xep-lambda-expression compiland))
    929927                         (setf lambda-list all-args))))))))))
    930928
Note: See TracChangeset for help on using the changeset viewer.