Changeset 335

Timestamp:

Jan 19, 2004, 4:35:07 PM (21 years ago)

Author:

Gary Byers

Message:

SIGNAL keeps looking in the same cluster when a handler declines.

File:

• trunk/ccl/level-1/l1-readloop.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-readloop.lisp

@@ -466 +466 @@
             (cond ((null fn) (throw tag condition))
                   ((fixnump fn) (throw tag (cons fn condition)))
-                  (t (return (funcall fn condition))))))))))
+                  (t (funcall fn condition)))))))))
 
 (defvar *error-print-circle* nil)   ; reset to T when we actually can print-circle