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

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

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

revision 1.3 by pfdietz, Mon Jan 13 14:11:50 2003 UTC revision 1.4 by pfdietz, Sat Feb 15 05:11:11 2003 UTC
# Line 9  Line 9 
9  ;; Test find-symbol, with the various combinations of  ;; Test find-symbol, with the various combinations of
10  ;; package designators  ;; package designators
11    
12  (deftest find-symbol-1  (deftest find-symbol.1
13    (find-symbol "aBmAchb1c")    (find-symbol "aBmAchb1c")
14    nil nil)    nil nil)
15    
16  (deftest find-symbol-2  (deftest find-symbol.2
17    (find-symbol "aBmAchb1c" "CL")    (find-symbol "aBmAchb1c" "CL")
18    nil nil)    nil nil)
19    
20  (deftest find-symbol-3  (deftest find-symbol.3
21    (find-symbol "aBmAchb1c" "COMMON-LISP")    (find-symbol "aBmAchb1c" "COMMON-LISP")
22    nil nil)    nil nil)
23    
24  (deftest find-symbol-4  (deftest find-symbol.4
25    (find-symbol "aBmAchb1c" "KEYWORD")    (find-symbol "aBmAchb1c" "KEYWORD")
26    nil nil)    nil nil)
27    
28  (deftest find-symbol-5  (deftest find-symbol.5
29    (find-symbol "aBmAchb1c" "COMMON-LISP-USER")    (find-symbol "aBmAchb1c" "COMMON-LISP-USER")
30    nil nil)    nil nil)
31    
32  (deftest find-symbol-6  (deftest find-symbol.6
33    (find-symbol "CAR" "CL")    (find-symbol "CAR" "CL")
34    car :external)    car :external)
35    
36  (deftest find-symbol-7  (deftest find-symbol.7
37    (find-symbol "CAR" "COMMON-LISP")    (find-symbol "CAR" "COMMON-LISP")
38    car :external)    car :external)
39    
40  (deftest find-symbol-8  (deftest find-symbol.8
41    (values (find-symbol "CAR" "COMMON-LISP-USER"))    (values (find-symbol "CAR" "COMMON-LISP-USER"))
42    car #| :inherited |# )    car #| :inherited |# )
43    
44  (deftest find-symbol-9  (deftest find-symbol.9
45    (find-symbol "CAR" "CL-TEST")    (find-symbol "CAR" "CL-TEST")
46    car :inherited)    car :inherited)
47    
48  (deftest find-symbol-10  (deftest find-symbol.10
49    (find-symbol "TEST" "KEYWORD")    (find-symbol "TEST" "KEYWORD")
50    :test :external)    :test :external)
51    
52  (deftest find-symbol-11  (deftest find-symbol.11
53    (find-symbol "FIND-SYMBOL-11" "CL-TEST")    (find-symbol "FIND-SYMBOL.11" "CL-TEST")
54    find-symbol-11 :internal)    find-symbol.11 :internal)
55    
56  (deftest find-symbol-12  (deftest find-symbol.12
57    (find-symbol "FOO" #\A)    (find-symbol "FOO" #\A)
58    A::FOO :external)    A::FOO :external)
59    
60  (deftest find-symbol-13  (deftest find-symbol.13
61    (progn    (progn
62      (intern "X" (find-package "A"))      (intern "X" (find-package "A"))
63      (find-symbol "X" #\A))      (find-symbol "X" #\A))
64    A::X :internal)    A::X :internal)
65    
66  (deftest find-symbol-14  (deftest find-symbol.14
67    (find-symbol "FOO" #\B)    (find-symbol "FOO" #\B)
68    A::FOO :inherited)    A::FOO :inherited)
69    
70  (deftest find-symbol-15  (deftest find-symbol.15
71    (find-symbol "FOO" "B")    (find-symbol "FOO" "B")
72    A::FOO :inherited)    A::FOO :inherited)
73    
74  (deftest find-symbol-16  (deftest find-symbol.16
75    (find-symbol "FOO" (find-package "B"))    (find-symbol "FOO" (find-package "B"))
76    A::FOO :inherited)    A::FOO :inherited)
77    
78    (deftest find-symbol.order.1
79      (let ((i 0) x y)
80        (values
81         (find-symbol (progn (setf x (incf i)) "CAR")
82                      (progn (setf y (incf i)) "COMMON-LISP"))
83         i x y))
84      car 2 1 2)
85    
86  (deftest find-symbol.error.1  (deftest find-symbol.error.1
87    (classify-error (find-symbol))    (classify-error (find-symbol))
88    program-error)    program-error)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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