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

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

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

revision 1.2 by camm, Wed Oct 9 19:05:01 2002 UTC revision 1.3 by pfdietz, Thu Oct 17 13:16:56 2002 UTC
# Line 13  Line 13 
13      (let ((*package* *package*))      (let ((*package* *package*))
14        (declare (special *package*))        (declare (special *package*))
15        (let ((p2 (in-package "A")))        (let ((p2 (in-package "A")))
16          (and (eq p2 (find-package "A"))          (and (eqt p2 (find-package "A"))
17               (eq *package* p2))))               (eqt *package* p2))))
18    t)    t)
19    
20  (deftest in-package-2  (deftest in-package-2
21      (let ((*package* *package*))      (let ((*package* *package*))
22        (declare (special *package*))        (declare (special *package*))
23        (let ((p2 (in-package |A|)))        (let ((p2 (in-package |A|)))
24          (and (eq p2 (find-package "A"))          (and (eqt p2 (find-package "A"))
25               (eq *package* p2))))               (eqt *package* p2))))
26    t)    t)
27    
28  (deftest in-package-3  (deftest in-package-3
29      (let ((*package* *package*))      (let ((*package* *package*))
30        (declare (special *package*))        (declare (special *package*))
31        (let ((p2 (in-package :|A|)))        (let ((p2 (in-package :|A|)))
32          (and (eq p2 (find-package "A"))          (and (eqt p2 (find-package "A"))
33               (eq *package* p2))))               (eqt *package* p2))))
34    t)    t)
35    
36  (deftest in-package-4  (deftest in-package-4
# Line 38  Line 38 
38        (declare (special *package*))        (declare (special *package*))
39        (handler-case        (handler-case
40            (let ((p2 (in-package #\A)))            (let ((p2 (in-package #\A)))
41              (and (eq p2 (find-package "A"))              (and (eqt p2 (find-package "A"))
42                   (eq *package* p2)))                   (eqt *package* p2)))
43          (error (c) c)))          (error (c) c)))
44    t)    t)
45    

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