Ignore:
Timestamp:
Jul 3, 2005, 1:52:28 AM (14 years ago)
Author:
gb
Message:

Make TYPE-ERROR objects with implicit EXPECTED-TYPE slots if no type info
available.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-error-signal.lisp

    r929 r1890  
    6464      (funcall '%error
    6565               (case condition-name
    66                  (type-error (make-condition condition-name
     66                 (type-error
     67                  (if (cdr errargs)
     68                    (make-condition condition-name
    6769                                             :format-control format-string
    6870                                             :datum (car errargs)
    69                                              :expected-type (%type-error-type (cadr errargs))))
     71                                             :expected-type (%type-error-type (cadr errargs)))
     72                    (make-condition condition-name
     73                                             :format-control format-string
     74                                             :datum (car errargs))))
    7075                 (improper-list (make-condition condition-name
    7176                                                :datum (car errargs)))
Note: See TracChangeset for help on using the changeset viewer.