Changeset 333

Timestamp:

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

Author:

Gary Byers

Message:

Define (and signal) some new condition classes.

File:

• trunk/ccl/level-1/l1-error-system.lisp (modified) (4 diffs)

trunk/ccl/level-1/l1-error-system.lisp

@@ -127 +127 @@
   ((expected-type :initform '(satisfies proper-list-p) :reader type-error-expected-type)))
 
+(define-condition cant-construct-arglist (improper-list)
+  ())
 
 
@@ -245 +247 @@
              (format s "Can't throw to tag ~s" (slot-value c 'tag)))))
 
+(define-condition inactive-restart (control-error)
+  ((restart-name :initarg :restart-name))
+  (:report (lambda (c s)
+             (format s "Restart ~s is not active" (slot-value c 'restart-name)))))
 
 (define-condition lock-protocol-error (control-error)
@@ -479 +485 @@
       (when (or (eq restart name) (eq (%restart-name restart) name))
         (return-from %active-restart (values restart cluster)))))
-  (error "Restart ~S is not active." name))
+  (error 'inactive-restart :restart-name name))
 
 (defun invoke-restart (restart &rest values)
@@ -891 +897 @@
         (cons $xaccessnth 'sequence-index-type-error)
         (cons $ximproperlist 'improper-list)
+        (cons $xnospread 'cant-construct-arglist)
         ))