Ignore:
Timestamp:
Dec 9, 2008, 1:34:07 AM (11 years ago)
Author:
gb
Message:

Make $XNOTELT signal a TYPE-ERROR, mostly so that COERCE does so in this
case when "coercion isn't possible" (ticket:387).

File:
1 edited

Legend:

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

    r10875 r11491  
    9595                                  :datum (car errargs)
    9696                                  :format-control format-string))
     97                 (array-element-type-error
     98                  (let* ((array (cadr errargs)))
     99                    (make-condition condition-name
     100                                    :format-control format-string
     101                                    :datum (car errargs)
     102                                    :expected-type (array-element-type array)
     103                                    :array array)))
    97104                                 
    98105                 (t (make-condition condition-name
Note: See TracChangeset for help on using the changeset viewer.