7 |
|
|
8 |
;;; The variable is bound |
;;; The variable is bound |
9 |
(deftest lambda-list-keywords.1 |
(deftest lambda-list-keywords.1 |
10 |
(not (boundp 'lambda-list-keywords)) |
(not-mv (boundp 'lambda-list-keywords)) |
11 |
nil) |
nil) |
12 |
|
|
13 |
;;; The variable is a constant |
;;; The variable is a constant |
14 |
(deftest lambda-list-keywords.2 |
(deftest lambda-list-keywords.2 |
15 |
(not (constantp 'lambda-list-keywords)) |
(not-mv (constantp 'lambda-list-keywords)) |
16 |
nil) |
nil) |
17 |
|
|
18 |
;;; The standard keywords are present in the list |
;;; The standard keywords are present in the list |
19 |
(deftest lambda-list-keywords.3 |
(deftest lambda-list-keywords.3 |
20 |
(and (consp lambda-list-keywords) |
(and (consp lambda-list-keywords) |
21 |
(null (set-difference '(&allow-other-keys |
(not-mv (set-difference '(&allow-other-keys |
22 |
&aux &body &environment |
&aux &body &environment |
23 |
&key &optional &rest &whole) |
&key &optional &rest &whole) |
24 |
lambda-list-keywords))) |
lambda-list-keywords))) |
25 |
t) |
t) |
26 |
|
|
27 |
;;; No lambda list keywords are in the keyword package |
;;; No lambda list keywords are in the keyword package |
37 |
(eql (aref name 0) #\&)))) |
(eql (aref name 0) #\&)))) |
38 |
lambda-list-keywords) |
lambda-list-keywords) |
39 |
nil) |
nil) |
|
|
|
|
|
|
|
|
|