Changeset 14844 for trunk/source/level-1


Ignore:
Timestamp:
Jun 23, 2011, 6:33:48 AM (8 years ago)
Author:
gb
Message:

(Should have been in last commit.)
If (%ERR-DISP $XDIVZRO ...) is called with a second operand, use that
as the first ARITHMETIC-ERROR-OPERAND in the resulting condition.

File:
1 edited

Legend:

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

    r14755 r14844  
    103103                                    :expected-type (array-element-type array)
    104104                                    :array array)))
    105                  (division-by-zero (make-condition condition-name))
     105                 (division-by-zero (make-condition condition-name
     106                                                   :operation '/
     107                                                   :operands (if errargs
     108                                                               (list (car errargs)
     109                                                                     0)
     110                                                               (list 0))))
    106111                 (t (make-condition condition-name
    107112                                    :format-control format-string
Note: See TracChangeset for help on using the changeset viewer.