Ignore:
Timestamp:
Apr 13, 2006, 12:43:21 PM (15 years ago)
Author:
gb
Message:

No EVAL-PROGRAM-ERROR. Please.

File:
1 edited

Legend:

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

    r4171 r4239  
    223223             (apply #'format nil (simple-condition-format-control c) (simple-condition-format-arguments c))))))
    224224
    225 (define-condition eval-program-error (simple-program-error)
    226   nil ;((context :initarg :context :reader eval-program-error-context))
    227   (:report
    228    (lambda (c s)
    229      (format s "While preprocessing ~a :~%~a"
    230              (simple-program-error-context c)
    231              (apply #'format nil (simple-condition-format-control c) (simple-condition-format-arguments c))))))
    232225
    233226
Note: See TracChangeset for help on using the changeset viewer.