Changeset 12099


Ignore:
Timestamp:
08/13/09 13:17:06 (12 years ago)
Author:
ehuelsmann
Message:

Convert UNWIND-PROTECT block-nodes to UNWIND-PROTECT-NODEs.

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
2 edited

Legend:

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

    r12097 r12099  
    341341      ;; However, p1 transforms the forms being processed, so, we
    342342      ;; need to copy the forms to create a second copy.
    343       (let* ((block (make-block-node '(UNWIND-PROTECT)))
     343      (let* ((block (make-unwind-protect-node :name '(UNWIND-PROTECT)))
    344344             ;; a bit of jumping through hoops...
    345345             (unwinding-forms (p1-body (copy-tree (cddr form))))
     
    349349             (*blocks* (cons block *blocks*))
    350350             (protected-form (p1 (cadr form))))
    351         (setf (block-form block)
     351        (setf (unwind-protect-form block)
    352352              `(unwind-protect ,protected-form
    353353                 (progn ,@unwinding-forms)
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r12097 r12099  
    77847784
    77857785(defun p2-unwind-protect-node (block target)
    7786   (let ((form (block-form block)))
     7786  (let ((form (unwind-protect-form block)))
    77877787    (when (= (length form) 2) ; No cleanup form.
    77887788      (compile-form (second form) target nil)
Note: See TracChangeset for help on using the changeset viewer.