30 |
nil nil) |
nil nil) |
31 |
|
|
32 |
(deftest find-symbol.6 |
(deftest find-symbol.6 |
33 |
(find-symbol "CAR" "CL") |
(find-symbol (string '#: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 (string '#: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 (string '#: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 (string '#: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 (string '#: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 (string '#:find-symbol.11) "CL-TEST") |
54 |
find-symbol.11 :internal) |
find-symbol.11 :internal) |
55 |
|
|
56 |
(deftest find-symbol.12 |
(deftest find-symbol.12 |
78 |
(deftest find-symbol.order.1 |
(deftest find-symbol.order.1 |
79 |
(let ((i 0) x y) |
(let ((i 0) x y) |
80 |
(values |
(values |
81 |
(find-symbol (progn (setf x (incf i)) "CAR") |
(find-symbol (progn (setf x (incf i)) (string '#:car)) |
82 |
(progn (setf y (incf i)) "COMMON-LISP")) |
(progn (setf y (incf i)) "COMMON-LISP")) |
83 |
i x y)) |
i x y)) |
84 |
car 2 1 2) |
car 2 1 2) |