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) |