Changeset 7728


Ignore:
Timestamp:
Nov 25, 2007, 2:28:34 AM (12 years ago)
Author:
gb
Message:

COMPILER-BUG condition.

File:
1 edited

Legend:

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

    r7624 r7728  
    462462(define-condition floating-point-invalid-operation (arithmetic-error))
    463463
     464(define-condition compiler-bug (simple-error)
     465  ()
     466  (:report (lambda (c stream)
     467                  (format stream "Compiler bug or inconsistency:~%")
     468                  (apply #'format stream (simple-condition-format-control c)
     469                         (simple-condition-format-arguments c)))))
     470                         
    464471(defun restartp (thing)
    465472  (istruct-typep thing 'restart))
Note: See TracChangeset for help on using the changeset viewer.