Changeset 332

Timestamp:

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

Author:

Gary Byers

Message:

Map kernel "can't construct arglist" to a (new) TYPE-ERROR subclass.

File:

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

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

@@ -82 +82 @@
                  (sequence-index-type-error
                   (make-sequence-index-type-error (car errargs) (cadr errargs)))
+                 (cant-construct-arglist
+                  (make-condition condition-name
+                                  :datum (car errargs)
+                                  :format-control format-string))
                                   
                  (t (make-condition condition-name