70 |
(equal (package-used-by-list p) nil) |
(equal (package-used-by-list p) nil) |
71 |
(equal (package-nicknames p) nil) |
(equal (package-nicknames p) nil) |
72 |
(equal (package-shadowing-symbols p) nil) |
(equal (package-shadowing-symbols p) nil) |
73 |
(equal (documentation p t) "This is a doc string") |
;; The spec says implementations are free to discard |
74 |
t)))) |
;; documentations, so this next form was wrong. |
75 |
|
;; Instead, we'll just computation DOCUMENTATION |
76 |
|
;; and throw away the value. |
77 |
|
;; (equal (documentation p t) "This is a doc string") |
78 |
|
(progn (documentation p t) t) |
79 |
|
)))) |
80 |
t) |
t) |
81 |
|
|
82 |
;; Check use argument |
;; Check use argument |