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

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

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

revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC revision 1.3 by pfdietz, Fri Oct 18 11:58:46 2002 UTC
# Line 29  Line 29 
29    
30  ;; The list returned has only packages in it  ;; The list returned has only packages in it
31  (deftest list-all-packages-3  (deftest list-all-packages-3
32      (not (not (every #'packagep (list-all-packages))))      (notnot (every #'packagep (list-all-packages)))
33    t)    t)
34    
35  ;; It returns a list of the same packages each time it is called  ;; It returns a list of the same packages each time it is called
# Line 155  Line 155 
155    t)    t)
156    
157  (deftest package-nicknames-8  (deftest package-nicknames-8
158      (ignore-errors    (ignore-errors
159        (subsetp '("CL-USER")      (notnot
160              (package-nicknames "COMMON-LISP-USER")       (subsetp '("CL-USER")
161              :test #'string=))                (package-nicknames "COMMON-LISP-USER")
162                  :test #'string=)))
163    t)    t)
164    
165  (deftest package-nicknames-9  (deftest package-nicknames-9

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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