Changeset 8020


Ignore:
Timestamp:
Jan 8, 2008, 8:39:56 AM (12 years ago)
Author:
gb
Message:

ARITHMETIC-ERROR has "status" slot.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-error-system.lisp

    r7890 r8020  
    449449(define-condition arithmetic-error (error)
    450450  ((operation :initform nil :initarg :operation :reader arithmetic-error-operation)
    451    (operands :initform nil :initarg :operands :reader arithmetic-error-operands))
    452   (:report (lambda (c s) (format s "~S detected ~&performing ~S on ~:S"
    453                                  (type-of c)
    454                                  (arithmetic-error-operation c)
    455                                  (arithmetic-error-operands c)))))
     451   (operands :initform nil :initarg :operands :reader arithmetic-error-operands)
     452   (status :initform nil :initarg :status :reader arithmetic-error-status))
     453  (:report (lambda (c s)
     454             (format s "~S detected" (type-of c))
     455             (let* ((operands (arithmetic-error-operands c)))
     456               (when operands
     457                 (format s "~&performing ~A on ~:S"
     458                         (arithmetic-error-operation c)
     459                         operands))))))
    456460
    457461(define-condition division-by-zero (arithmetic-error))
Note: See TracChangeset for help on using the changeset viewer.