/[gcl]/gcl/ansi-tests/find-symbol.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/find-symbol.lsp

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

revision 1.4 by pfdietz, Sat Apr 23 14:33:35 2005 UTC revision 1.5 by pfdietz, Sat Apr 23 18:48:50 2005 UTC
# Line 57  Line 57 
57    find-symbol.11 :internal)    find-symbol.11 :internal)
58    
59  (deftest find-symbol.12  (deftest find-symbol.12
60    (find-symbol "FOO" #\A)    (progn
61    A::FOO :external)      (set-up-packages)
62        (let ((vals (multiple-value-list (find-symbol "FOO" #\A))))
63          (values (length vals)
64                  (package-name (symbol-package (first vals)))
65                  (symbol-name (first vals))
66                  (second vals))))
67      2 "A" "FOO" :external)
68    
69  (deftest find-symbol.13  (deftest find-symbol.13
70    (progn    (progn
71        (set-up-packages)
72      (intern "X" (find-package "A"))      (intern "X" (find-package "A"))
73      (find-symbol "X" #\A))      (let ((vals (multiple-value-list (find-symbol "X" #\A))))
74    A::X :internal)        (values (length vals)
75                  (package-name (symbol-package (first vals)))
76                  (symbol-name (first vals))
77                  (second vals))))
78      2 "A" "X" :internal)
79    
80  (deftest find-symbol.14  (deftest find-symbol.14
81    (find-symbol "FOO" #\B)    (progn
82    A::FOO :inherited)      (set-up-packages)
83        (let ((vals (multiple-value-list (find-symbol "FOO" #\B))))
84          (values (length vals)
85                  (package-name (symbol-package (first vals)))
86                  (symbol-name (first vals))
87                  (second vals))))
88      2 "A" "FOO" :inherited)
89    
90  (deftest find-symbol.15  (deftest find-symbol.15
91    (find-symbol "FOO" "FS-B")    (find-symbol "FOO" "FS-B")

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