Commit 638f50e6 authored by pfdietz's avatar pfdietz

Fixed three check-type-error error cases

parent 8ac0ca5e
......@@ -87,6 +87,15 @@
t)
(deftest fboundp.error.10
(check-type-error #'(lambda (x) (fboundp `(setf ,x)))
#'symbolp)
(loop for x in *mini-universe*
unless (symbolp x)
nconc
(handler-case
(list x (fboundp `(setf ,x)))
(type-error (c)
(assert (not (typep (type-error-datum c)
(type-error-expected-type c))))
nil)
(error (c) (list (list x c)))))
nil)
......@@ -40,7 +40,16 @@
nil)
(deftest fdefinition.error.8
(check-type-error #'(lambda (x) (fdefinition `(setf ,x))) #'symbolp)
(loop for x in *mini-universe*
unless (symbolp x)
nconc
(handler-case
(list x (fdefinition `(setf ,x)))
(type-error (c)
(assert (not (typep (type-error-datum c)
(type-error-expected-type c))))
nil)
(error (c) (list (list x c)))))
nil)
;;; Non-error cases
......
......@@ -69,5 +69,14 @@
t)
(deftest fmakunbound.error.7
(check-type-error #'(lambda (x) (fmakunbound `(setf ,x))) #'symbolp)
(loop for x in *mini-universe*
unless (symbolp x)
nconc
(handler-case
(list x (fmakunbound `(setf ,x)))
(type-error (c)
(assert (not (typep (type-error-datum c)
(type-error-expected-type c))))
nil)
(error (c) (list (list x c)))))
nil)
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment