99 |
;;; argument defaults to "G", with NIL causing an error. |
;;; argument defaults to "G", with NIL causing an error. |
100 |
|
|
101 |
(deftest gensym.error.1 |
(deftest gensym.error.1 |
102 |
(signals-error (gensym 'aaa) type-error) |
(check-type-error #'gensym #'(lambda (x) (typep x '(or string unsigned-byte)))) |
103 |
t) |
nil) |
|
|
|
|
(deftest gensym.error.2 |
|
|
(signals-error (gensym 12.3) type-error) |
|
|
t) |
|
|
|
|
|
(deftest gensym.error.3 |
|
|
(signals-error (gensym t) type-error) |
|
|
t) |
|
|
|
|
|
(deftest gensym.error.4 |
|
|
(signals-error (gensym nil) type-error) ;; NIL /= no argument! |
|
|
t) |
|
|
|
|
|
(deftest gensym.error.5 |
|
|
(signals-error (gensym '(a)) type-error) |
|
|
t) |
|
|
|
|
|
(deftest gensym.error.6 |
|
|
(signals-error (gensym #\x) type-error) |
|
|
t) |
|
104 |
|
|
105 |
(deftest gensym.error.7 |
(deftest gensym.error.7 |
106 |
(signals-error (gensym 10 'foo) program-error) |
(signals-error (gensym 10 'foo) program-error) |