X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcondition.lisp;h=f8e70f3cb595a59e3b42dabb40ddea77e29c2d94;hb=6f7128b46e9ca91de777f61e8623bf5d997b2987;hp=3765b9b6e527fec42aa3e499a5227048b54046c9;hpb=bfa4310e41dcd011ca9d139f29be1c5757b41378;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 3765b9b..f8e70f3 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -723,6 +723,8 @@
 ;;;; 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
@@ -873,10 +875,6 @@
               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
@@ -910,6 +908,7 @@
 ;;; (:ansi-cl :glossary "similar")
 ;;;
 ;;; (:sbcl :node "...")
+;;; (:sbcl :variable *ed-functions*)
 ;;;
 ;;; FIXME: this is not the right place for this.
 (defun print-reference (reference stream)
@@ -929,7 +928,8 @@
      (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 ()
@@ -981,6 +981,12 @@
       :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"))))
@@ -988,6 +994,20 @@
 (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)
+  ())
 
 ;;;; restart definitions