Changeset 7728 for branches


Ignore:
Timestamp:
Nov 24, 2007, 6:28:34 PM (17 years ago)
Author:
Gary Byers
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.