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

Diff of /gcl/ansi-tests/list-all-packages.lsp

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

revision 1.1 by pfdietz, Sun Feb 22 13:33:58 2004 UTC revision 1.2 by pfdietz, Sat Apr 23 18:48:50 2005 UTC
# Line 16  Line 16 
16    
17  ;; The required packages are present  ;; The required packages are present
18  (deftest list-all-packages.2  (deftest list-all-packages.2
19    (subsetp    (progn
20     (list (find-package "CL")      (set-up-packages)
21           (find-package "CL-USER")      (notnot
22           (find-package "KEYWORD")       (subsetp
23           (find-package "A")        (list (find-package "CL")
24           (find-package "REGRESSION-TEST")              (find-package "CL-USER")
25           (find-package "CL-TEST")              (find-package "KEYWORD")
26           (find-package "B"))              (find-package "A")
27     (list-all-packages))              (find-package "REGRESSION-TEST")
28                (find-package "CL-TEST")
29                (find-package "B"))
30          (list-all-packages))))
31    t)    t)
32    
33  ;; The list returned has only packages in it  ;; The list returned has only packages in it

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

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