Changeset 11789
- Timestamp:
- 04/27/09 21:10:24 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp
r11712 r11789 859 859 (initialize-p1-handlers) 860 860 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 861 868 (defun p1-compiland (compiland) 862 869 ;; (format t "p1-compiland name = ~S~%" (compiland-name compiland)) … … 902 909 (%call-internal ,@all-args))))) 903 910 (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)) 908 912 (let ((xep-lambda-expression 909 913 `(lambda ,(append required-args (list name)) … … 911 915 (%call-internal ,@all-args))))) 912 916 (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)) 917 918 (setf lambda-list all-args) 918 919 (setf (compiland-kind compiland) :internal)) … … 923 924 (,(compiland-name compiland) ,@all-args))))) 924 925 (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)) 929 927 (setf lambda-list all-args)))))))))) 930 928
Note: See TracChangeset
for help on using the changeset viewer.