/[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.4 by pfdietz, Sat Feb 15 05:11:11 2003 UTC revision 1.5 by pfdietz, Sat Mar 1 03:35:48 2003 UTC
# Line 30  Line 30 
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
# Line 78  Line 78 
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)

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

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