Changeset 14558


Ignore:
Timestamp:
06/22/13 19:57:58 (9 years ago)
Author:
ehuelsmann
Message:

Fix FAILED AVER in recent cl-test-grid findings.

File:
1 edited

Legend:

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

    r14552 r14558  
    649649(defun p1-java-jrun-exception-protected (form)
    650650  (assert (eq (first form) 'java:jrun-exception-protected))
    651   (assert (eq (car (second form)) 'lambda))
    652   (assert (eq (cadr (second form)) nil))
    653   (let* ((body (cddr (second form)))
     651  (assert (or (eq (car (second form)) 'lambda)
     652              (and (eq (car (second form)) 'function)
     653                   (eq (car (second (second form))) 'lambda))))
     654  (let* ((body (if (eq (car (second form)) 'lambda)
     655                   (cddr (second form))
     656                   (cddr (second (second form)))))
    654657         (block (make-exception-protected-node))
    655658         (*block* block)
Note: See TracChangeset for help on using the changeset viewer.