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

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

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

revision 1.1 by pfdietz, Thu Sep 26 16:53:38 2002 UTC revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC
# Line 14  Line 14 
14  (deftest packagep-1  (deftest packagep-1
15    (loop    (loop
16     for x in *universe* count     for x in *universe* count
17     (unless (eq (not (not (packagep x)))     (unless (eqt (not (packagep x))
18                 (not (not (typep x 'package))))                  (not (typep x 'package)))
19             (format t             (format t
20                     "(packagep ~S) = ~S, (typep x 'package) = ~S~%"                     "(packagep ~S) = ~S, (typep x 'package) = ~S~%"
21                     x (packagep x) x (typep x 'package))                     x (packagep x) x (typep x 'package))
# Line 25  Line 25 
25  ;; *package* is always a package  ;; *package* is always a package
26    
27  (deftest packagep-2  (deftest packagep-2
28    (not (not (packagep *package*)))    (not (packagep *package*))
29    t)    nil)
30    
31  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
32  ;;; package-error  ;;; package-error
33    
34  (deftest package-error-1  (deftest package-error-1
35      (not (not    (not
36            (typep (make-condition 'package-error :package "CL")     (typep (make-condition 'package-error :package "CL")
37             'package-error)))            'package-error))
38    t)    nil)
39    
40  (deftest package-error-2  (deftest package-error-2
41      (not (not    (not
42            (typep (make-condition 'package-error     (typep (make-condition 'package-error
43                     :package (find-package "CL"))                            :package (find-package "CL"))
44             'package-error)))            'package-error))
45    t)    nil)
46    
47  (deftest package-error-3  (deftest package-error-3
48      (subtypep 'package-error 'error)    (subtypep* 'package-error 'error)
49    t t)    t t)
50    
51  (deftest package-error-4  (deftest package-error-4
52     (not (not     (not
53            (typep (make-condition 'package-error      (typep (make-condition 'package-error
54                     :package (find-package '#:|CL|))                             :package (find-package '#:|CL|))
55             'package-error)))             'package-error))
56    t)    nil)
57    
58  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
59  ;;; package-error-package  ;;; package-error-package
60    
61  (deftest package-error-package-1  (deftest package-error-package-1
62      (handler-case      (handler-case
63          (eq (find-package (package-error-package          (eqt (find-package (package-error-package
64                             (make-condition 'package-error                              (make-condition 'package-error
65                               :package "CL")))                                              :package "CL")))
66              (find-package "CL"))               (find-package "CL"))
67        (error (c) c))        (error (c) c))
68    t)    t)
69    
70  (deftest package-error-package-2  (deftest package-error-package-2
71      (handler-case      (handler-case
72          (eq (find-package (package-error-package          (eqt (find-package (package-error-package
73                             (make-condition 'package-error                             (make-condition 'package-error
74                               :package (find-package "CL"))))                               :package (find-package "CL"))))
75              (find-package "CL"))              (find-package "CL"))
# Line 78  Line 78 
78    
79  (deftest package-error-package-3  (deftest package-error-package-3
80      (handler-case      (handler-case
81          (eq (find-package (package-error-package          (eqt (find-package (package-error-package
82                             (make-condition 'package-error                             (make-condition 'package-error
83                               :package '#:|CL|)))                               :package '#:|CL|)))
84              (find-package "CL"))              (find-package "CL"))
# Line 87  Line 87 
87    
88  (deftest package-error-package-4  (deftest package-error-package-4
89      (handler-case      (handler-case
90          (eq (find-package (package-error-package          (eqt (find-package (package-error-package
91                             (make-condition 'package-error                             (make-condition 'package-error
92                               :package #\A)))                               :package #\A)))
93              (find-package "A"))              (find-package "A"))

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