projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8aplha.0.6:
[sbcl.git]
/
src
/
code
/
interr.lisp
diff --git
a/src/code/interr.lisp
b/src/code/interr.lisp
index
4ee10ee
..
60959da
100644
(file)
--- a/
src/code/interr.lisp
+++ b/
src/code/interr.lisp
@@
-222,6
+222,10
@@
"A function with declared result type NIL returned:~% ~S"
:format-arguments (list function)))
"A function with declared result type NIL returned:~% ~S"
:format-arguments (list function)))
+(deferr nil-array-accessed-error (array)
+ (error 'nil-array-accessed-error
+ :datum array :expected-type '(not (array nil))))
+
(deferr division-by-zero-error (this that)
(error 'division-by-zero
:operation 'division
(deferr division-by-zero-error (this that)
(error 'division-by-zero
:operation 'division
@@
-238,7
+242,7
@@
(deferr layout-invalid-error (object layout)
(error 'layout-invalid
:datum object
(deferr layout-invalid-error (object layout)
(error 'layout-invalid
:datum object
- :expected-type (layout-class layout)))
+ :expected-type (layout-classoid layout)))
(deferr odd-key-args-error ()
(error 'simple-program-error
(deferr odd-key-args-error ()
(error 'simple-program-error
@@
-272,6
+276,11
@@
:datum object
:expected-type '(unsigned-byte 32)))
:datum object
:expected-type '(unsigned-byte 32)))
+(deferr object-not-simple-array-nil-error (object)
+ (error 'type-error
+ :datum object
+ :expected-type '(simple-array nil (*))))
+
(deferr object-not-simple-array-unsigned-byte-2-error (object)
(error 'type-error
:datum object
(deferr object-not-simple-array-unsigned-byte-2-error (object)
(error 'type-error
:datum object