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

Diff of /gcl/ansi-tests/packages-02.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 12  Line 12 
12  (deftest find-package-1  (deftest find-package-1
13      (let ((p (find-package "CL"))      (let ((p (find-package "CL"))
14            (p2 (find-package "COMMON-LISP")))            (p2 (find-package "COMMON-LISP")))
15        (and p p2 (eq p p2)))        (and p p2 (eqt p p2)))
16    t)    t)
17    
18  (deftest find-package-2  (deftest find-package-2
19      (let ((p (find-package "CL-USER"))      (let ((p (find-package "CL-USER"))
20            (p2 (find-package "COMMON-LISP-USER")))            (p2 (find-package "COMMON-LISP-USER")))
21        (and p p2 (eq p p2)))        (and p p2 (eqt p p2)))
22    t)    t)
23    
24  (deftest find-package-3  (deftest find-package-3
25      (let ((p (find-package "KEYWORD")))      (let ((p (find-package "KEYWORD")))
26        (and p (eq p (symbol-package :test))))        (and p (eqt p (symbol-package :test))))
27    t)    t)
28    
29  (deftest find-package-4  (deftest find-package-4
# Line 59  Line 59 
59            (p2 (ignore-errors (find-package "A"))))            (p2 (ignore-errors (find-package "A"))))
60        (and (packagep p)        (and (packagep p)
61             (packagep p2)             (packagep p2)
62             (eq p p2)))             (eqt p p2)))
63    t)    t)
64    
65  (deftest find-package-9  (deftest find-package-9
66      (let ((p (ignore-errors (find-package "A")))      (let ((p (ignore-errors (find-package "A")))
67            (p2 (ignore-errors (find-package "B"))))            (p2 (ignore-errors (find-package "B"))))
68        (eq p p2))        (eqt p p2))
69    nil)    nil)
70    
71  (deftest find-package-10  (deftest find-package-10
72      (let ((p (ignore-errors (find-package #\Q)))      (let ((p (ignore-errors (find-package #\Q)))
73            (p2 (ignore-errors (find-package "Q"))))            (p2 (ignore-errors (find-package "Q"))))
74        (and (packagep p)        (and (packagep p)
75             (eq p p2)))             (eqt p p2)))
76    t)    t)
77    
78  (deftest find-package-11  (deftest find-package-11
# Line 80  Line 80 
80          (let ((cl (find-package "CL")))          (let ((cl (find-package "CL")))
81            (let ((cl2 (find-package cl)))            (let ((cl2 (find-package cl)))
82              (and (packagep cl)              (and (packagep cl)
83                   (eq cl cl2))))                   (eqt cl cl2))))
84        (error (c) c))        (error (c) c))
85    t)    t)
86    

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