Changeset 8880


Ignore:
Timestamp:
Mar 24, 2008, 10:51:09 PM (11 years ago)
Author:
gb
Message:

Bind *BREAK-ON-SIGNALS* to NIL before speculatively calling a
SATISFIES predicate during type simplification.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-typesys.lisp

    r8852 r8880  
    35813581            (let ((fun (second hairy-spec)))
    35823582              (cond ((and (symbolp fun) (fboundp fun))
    3583                      (values (not (null (ignore-errors (funcall fun obj)))) t))
     3583                     ;; Binding *BREAK-ON-SIGNALS* here is a modularity
     3584                     ;; violation intended to improve the signal-to-noise
     3585                     ;; ratio on a mailing list.
     3586                     (values (not (null (let* ((*break-on-signals* nil))
     3587                                          (ignore-errors (funcall fun obj))))) t))
    35843588                    (t
    35853589                     (values nil nil))))))))))
Note: See TracChangeset for help on using the changeset viewer.