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

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

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

revision 1.5 by pfdietz, Sat Jan 18 18:14:02 2003 UTC revision 1.6 by pfdietz, Sat Feb 15 05:11:11 2003 UTC
# Line 9  Line 9 
9  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
10  ;;; use-package  ;;; use-package
11    
12  (deftest use-package-1  (deftest use-package.1
13    (progn    (progn
14      (safely-delete-package "H")      (safely-delete-package "H")
15      (safely-delete-package "G")      (safely-delete-package "G")
16      (let* ((pg (make-package "G" :use nil))      (let* ((pg (make-package "G" :use nil))
17             (ph (make-package "H" :use nil))             (ph (make-package "H" :use nil))
18             (sym1 (intern "FOO" pg)))             (sym1 (intern "FOO" pg))
19               (i 0) x y)
20        (and        (and
21         (eqt (export sym1 pg) t)         (eqt (export sym1 pg) t)
22         (null (package-used-by-list pg))         (null (package-used-by-list pg))
23         (null (package-used-by-list ph))         (null (package-used-by-list ph))
24         (null (package-use-list pg))         (null (package-use-list pg))
25         (null (package-use-list ph))         (null (package-use-list ph))
26         (eqt (use-package pg ph) t)  ;; "H" will use "G"         (eqt (use-package (progn (setf x (incf i)) pg)
27                             (progn (setf y (incf i)) ph))
28                t)  ;; "H" will use "G"
29           (eql i 2) (eql x 1) (eql y 2)
30         (multiple-value-bind (sym2 access)         (multiple-value-bind (sym2 access)
31             (find-symbol "FOO" ph)             (find-symbol "FOO" ph)
32           (and           (and
# Line 36  Line 40 
40         (null (find-symbol "FOO" ph)))))         (null (find-symbol "FOO" ph)))))
41    t)    t)
42    
43  (deftest use-package-2  (deftest use-package.2
44    (progn    (progn
45      (safely-delete-package "H")      (safely-delete-package "H")
46      (safely-delete-package "G")      (safely-delete-package "G")
# Line 63  Line 67 
67         (null (find-symbol "FOO" ph)))))         (null (find-symbol "FOO" ph)))))
68    t)    t)
69    
70  (deftest use-package-3  (deftest use-package.3
71    (progn    (progn
72      (safely-delete-package "H")      (safely-delete-package "H")
73      (safely-delete-package "G")      (safely-delete-package "G")
# Line 90  Line 94 
94         (null (find-symbol "FOO" ph)))))         (null (find-symbol "FOO" ph)))))
95    t)    t)
96    
97  (deftest use-package-4  (deftest use-package.4
98    (progn    (progn
99      (safely-delete-package "H")      (safely-delete-package "H")
100      (safely-delete-package "G")      (safely-delete-package "G")
# Line 120  Line 124 
124    
125  ;; use lists of packages  ;; use lists of packages
126    
127  (deftest use-package-5  (deftest use-package.5
128    (let ((pkgs '("H" "G1" "G2" "G3"))    (let ((pkgs '("H" "G1" "G2" "G3"))
129          (vars '("FOO1" "FOO2" "FOO3")))          (vars '("FOO1" "FOO2" "FOO3")))
130      (dolist (p pkgs)      (dolist (p pkgs)
# Line 152  Line 156 
156    
157  ;; Circular package use  ;; Circular package use
158    
159  (deftest use-package-6  (deftest use-package.6
160    (progn    (progn
161      (safely-delete-package "H")      (safely-delete-package "H")
162      (safely-delete-package "G")      (safely-delete-package "G")

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

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