X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcondition.lisp;h=1ba4f0b7e0011174d35816a119eed61275a4c885;hb=deac413eadea2935f356eebfc8f6b01b6367d260;hp=ee00b04325d42faa6dba35968f8885b760a716b9;hpb=c40c56eedec692acb930ec0e358a933ab33a3560;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index ee00b04..1ba4f0b 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -624,6 +624,15 @@
 (define-condition simple-style-warning (simple-condition style-warning) ())
 (define-condition simple-type-error (simple-condition type-error) ())
 
+;; Can't have a function called SIMPLE-TYPE-ERROR or TYPE-ERROR...
+(declaim (ftype (sfunction (t t t &rest t) nil) bad-type))
+(defun bad-type (datum type control &rest arguments)
+  (error 'simple-type-error
+         :datum datum
+         :expected-type type
+         :format-control control
+         :format-arguments arguments))
+
 (define-condition program-error (error) ())
 (define-condition parse-error   (error) ())
 (define-condition control-error (error) ())
@@ -900,6 +909,10 @@
 (define-condition simple-reference-warning (reference-condition simple-warning)
   ())
 
+(define-condition arguments-out-of-domain-error
+    (arithmetic-error reference-condition)
+  ())
+
 (define-condition duplicate-definition (reference-condition warning)
   ((name :initarg :name :reader duplicate-definition-name))
   (:report (lambda (c s)