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

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

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

revision 1.6 by pfdietz, Sat Apr 23 14:33:35 2005 UTC revision 1.7 by pfdietz, Sat Apr 23 18:48:50 2005 UTC
# Line 17  Line 17 
17      (:use "A")      (:use "A")
18      (:export "BAR")))      (:export "BAR")))
19    
20    (defun set-up-packages ()
21      (safely-delete-package "A")
22      (safely-delete-package "B")
23      (safely-delete-package "Q")
24      (defpackage "A"
25        (:use)
26        (:nicknames "Q")
27        (:export "FOO"))
28      (defpackage "B"
29        (:use "A")
30        (:export "BAR")))
31    
32  (report-and-ignore-errors  (report-and-ignore-errors
33    (defpackage "FS-A"    (defpackage "FS-A"
34      (:use)      (:use)

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