;;;; setup of CONDITION machinery, only because that makes it easier to
;;;; get cold init to work.
+(define-condition simple-style-warning (simple-condition style-warning) ())
+
(define-condition values-type-error (type-error)
()
(:report
mailing lists, which you can find at ~
<http://sbcl.sourceforge.net/>.~:@>"
'((fmakunbound 'compile))))))
-(defun bug (format-control &rest format-arguments)
- (error 'bug
- :format-control format-control
- :format-arguments format-arguments))
;;; a condition for use in stubs for operations which aren't supported
;;; on some platforms
;;; (:ansi-cl :glossary "similar")
;;;
;;; (:sbcl :node "...")
+;;; (:sbcl :variable *ed-functions*)
;;;
;;; FIXME: this is not the right place for this.
(defun print-reference (reference stream)
(format stream ", ")
(destructuring-bind (type data) (cdr reference)
(ecase type
- (:node (format stream "Node ~S" data)))))
+ (:node (format stream "Node ~S" data))
+ (:variable (format stream "Variable ~S" data)))))
;; FIXME: other documents (e.g. AMOP, Franz documentation :-)
))
(define-condition reference-condition ()
:references (list '(:ansi-cl :function make-array)
'(:ansi-cl :function upgraded-array-element-type))))
+(define-condition displaced-to-array-too-small-error
+ (reference-condition simple-error)
+ ()
+ (:default-initargs
+ :references (list '(:ansi-cl :function adjust-array))))
+
(define-condition type-warning (reference-condition simple-warning)
()
(:default-initargs :references (list '(:sbcl :node "Handling of Types"))))
(define-condition local-argument-mismatch (reference-condition simple-warning)
()
(:default-initargs :references (list '(:ansi-cl :section (3 2 2 3)))))
+
+(define-condition format-args-mismatch (reference-condition)
+ ()
+ (:default-initargs :references (list '(:ansi-cl :section (22 3 10 2)))))
+
+(define-condition format-too-few-args-warning
+ (format-args-mismatch simple-warning)
+ ())
+(define-condition format-too-many-args-warning
+ (format-args-mismatch simple-style-warning)
+ ())
+
+(define-condition extension-failure (reference-condition simple-error)
+ ())
\f
;;;; restart definitions