Index: /branches/working-0711/ccl/level-1/l1-error-system.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-error-system.lisp	(revision 7727)
+++ /branches/working-0711/ccl/level-1/l1-error-system.lisp	(revision 7728)
@@ -462,4 +462,11 @@
 (define-condition floating-point-invalid-operation (arithmetic-error))
 
+(define-condition compiler-bug (simple-error)
+  ()
+  (:report (lambda (c stream)
+                  (format stream "Compiler bug or inconsistency:~%")
+                  (apply #'format stream (simple-condition-format-control c)
+                         (simple-condition-format-arguments c)))))
+                         
 (defun restartp (thing) 
   (istruct-typep thing 'restart))