/[gcl]/gcl/ansi-tests/packages-16.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/packages-16.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by pfdietz, Thu Oct 24 03:21:50 2002 UTC revision 1.7 by pfdietz, Sun Nov 3 11:06:15 2002 UTC
# Line 70  Line 70 
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

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26