6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
|
|
8 |
(deftest call-arguments-limit.1 |
(deftest call-arguments-limit.1 |
9 |
(not (constantp 'call-arguments-limit)) |
(notnot-mv (constantp 'call-arguments-limit)) |
10 |
nil) |
t) |
11 |
|
|
12 |
(deftest call-arguments-limit.2 |
(deftest call-arguments-limit.2 |
13 |
(not (typep call-arguments-limit 'integer)) |
(notnot-mv (typep call-arguments-limit 'integer)) |
14 |
nil) |
t) |
15 |
|
|
16 |
(deftest call-arguments-limit.3 |
(deftest call-arguments-limit.3 |
17 |
(< call-arguments-limit 50) |
(< call-arguments-limit 50) |