Changeset 12633
- Timestamp:
- 04/24/10 15:46:29 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
r12622 r12633 8541 8541 (setf *code* (nconc code *code*))) 8542 8542 8543 (setf (abcl-class-file-superclass class-file) 8544 (if (or *hairy-arglist-p* 8545 (and *child-p* *closure-variables*)) 8546 +lisp-compiled-closure-class+ 8547 +lisp-primitive-class+)) 8548 8549 (setf (abcl-class-file-lambda-list class-file) args) 8550 (setf (method-max-locals execute-method) *registers-allocated*) 8551 (push execute-method (abcl-class-file-methods class-file)) 8552 8553 8554 ;;; Move here 8543 8555 (finalize-code) 8544 8556 (optimize-code) … … 8554 8566 (symbol-value (handler-to handler)))) 8555 8567 *handlers*)) 8556 8557 (setf (method-max-locals execute-method) *registers-allocated*) 8558 (setf (method-handlers execute-method) (nreverse *handlers*)) 8559 8560 (setf (abcl-class-file-superclass class-file) 8561 (if (or *hairy-arglist-p* 8562 (and *child-p* *closure-variables*)) 8563 +lisp-compiled-closure-class+ 8564 +lisp-primitive-class+)) 8565 8566 (setf (abcl-class-file-lambda-list class-file) args) 8567 8568 (push execute-method (abcl-class-file-methods class-file))) 8568 ;;; to here 8569 ;;; To a separate function which is part of class file finalization 8570 ;;; when we have a section of class-file-generation centered code 8571 8572 8573 (setf (method-handlers execute-method) (nreverse *handlers*))) 8569 8574 t) 8570 8575
Note: See TracChangeset
for help on using the changeset viewer.