src/code/cross-condition.lisp

   1 ;;;; cross-compiler-only versions of conditions
   2
   3 ;;;; This software is part of the SBCL system. See the README file for
   4 ;;;; more information.
   5 ;;;;
   6 ;;;; This software is derived from the CMU CL system, which was
   7 ;;;; written at Carnegie Mellon University and released into the
   8 ;;;; public domain. The software is in the public domain and is
   9 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
  10 ;;;; files for more information.
  11
  12 (in-package "SB!KERNEL")
  13
  14 (define-condition simple-style-warning (simple-condition style-warning) ())
  15 (define-condition format-too-few-args-warning (simple-warning) ())
  16 ;;; in the cross-compiler, this is a full warning.  In the target
  17 ;;; compiler, it will only be a style-warning.
  18 (define-condition format-too-many-args-warning (simple-warning) ())
  19
  20 ;;; OAOOM warning: see condition.lisp -- we want a full definition in
  21 ;;; the cross-compiler as well, in order to have nice error messages
  22 ;;; instead of complaints of undefined-function
  23 ;;; ENCAPSULATED-CONDITION.
  24 (define-condition encapsulated-condition (condition)
  25   ((condition :initarg :condition :reader encapsulated-condition)))
  26
  27 (define-condition bug (simple-error)
  28   ()
  29   (:report
  30    (lambda (condition stream)
  31      (format stream
  32              "~@<  ~? ~:@_~?~:>"
  33              (simple-condition-format-control condition)
  34              (simple-condition-format-arguments condition)
  35              "~@<If you see this and are an SBCL ~
  36 developer, then it is probable that you have made a change to the ~
  37 system that has broken the ability for SBCL to compile, usually by ~
  38 removing an assumed invariant of the system, but sometimes by making ~
  39 an averrance that is violated (check your code!). If you are a user, ~
  40 please submit a bug report to the developers' mailing list, details of ~
  41 which can be found at <http://sbcl.sourceforge.net/>.~:@>"
  42              ()))))
  43
  44 ;;; These are should never be instantiated before the real definitions
  45 ;;; come in.
  46 (deftype package-lock-violation () nil)
  47 (deftype package-locked-error () nil)
  48 (deftype symbol-package-locked-error () nil)