Changeset 334

Timestamp:

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

Author:

Gary Byers

Message:

Allowing INVOKE-DEBUGGER to build a condition from extra arguments would
clearly lead to increased street crime.

File:

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

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

@@ -310 +310 @@
           (t (format *error-output* "Break while interrupt-level less than zero; ignored.")))))
 
-(defun invoke-debugger (&optional string &rest args &aux (fp (%get-frame-ptr)))
-  (let ((c (condition-arg (or string "") args 'simple-condition)))
+(defun invoke-debugger (condition &aux (fp (%get-frame-ptr)))
+  (let ((c (require-type condition 'condition)))
     (when *debugger-hook*
       (let ((hook *debugger-hook*)