Changeset 6494


Ignore:
Timestamp:
May 9, 2007, 7:56:48 AM (15 years ago)
Author:
gb
Message:

%BREAK-IN-FRAME might be called with a CONDITION object.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-readloop-lds.lisp

    r6195 r6494  
    368368(defun %break-in-frame (fp &optional string &rest args)
    369369  (flet ((do-break-loop ()
    370            (let ((c (make-condition 'simple-condition
     370           (let ((c (if (typep string 'condition)
     371                      string
     372                      (make-condition 'simple-condition
    371373                                    :format-control (or string "")
    372                                     :format-arguments args)))
     374                                    :format-arguments args))))
    373375             (cbreak-loop "Break" "Return from BREAK." c fp))))
    374376    (cond ((%i> *interrupt-level* -1)
Note: See TracChangeset for help on using the changeset viewer.