2
;;;; Author: Paul Dietz
3
;;;; Created: Sat Feb 15 20:12:04 2003
4
;;;; Contains: Tests of CHECK-TYPE
10
(values (check-type x symbol) x))
16
(check-type x integer))
23
((type-error #'(lambda (c) (store-value 15 c))))
24
(values (check-type x number) x)))
29
(values (check-type x symbol "a symbol") x))
35
((type-error #'(lambda (c) (store-value "abc" c))))
36
(values (check-type x string "a string") x)))
42
((type-error #'(lambda (c) (declare (ignore c)) (store-value 15 nil))))
43
(values (check-type x number) x)))
49
((type-error #'(lambda (c) (declare (ignore c)) (store-value 15))))
50
(values (check-type x number) x)))