/[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.2 by pfdietz, Sun Aug 29 02:43:39 2004 UTC revision 1.3 by pfdietz, Sat Sep 4 11:08:37 2004 UTC
# Line 78  Line 78 
78    (find-symbol "FOO" (find-package "B"))    (find-symbol "FOO" (find-package "B"))
79    A::FOO :inherited)    A::FOO :inherited)
80    
81  (deftest find-package.17  (deftest find-symbol.17
82    (let ((name (make-array '(3) :initial-contents "FOO"    (let ((name (make-array '(3) :initial-contents "FOO"
83                            :element-type 'base-char)))                            :element-type 'base-char)))
84      (find-symbol name "B"))      (find-symbol name "B"))
85    A::FOO :inherited)    A::FOO :inherited)
86    
87  (deftest find-package.18  (deftest find-symbol.18
88    (let ((name (make-array '(4) :initial-contents "FOOD"    (let ((name (make-array '(4) :initial-contents "FOOD"
89                            :element-type 'character                            :element-type 'character
90                            :fill-pointer 3)))                            :fill-pointer 3)))
91      (find-symbol name "B"))      (find-symbol name "B"))
92    A::FOO :inherited)    A::FOO :inherited)
93    
94  (deftest find-package.19  (deftest find-symbol.19
95    (let ((name (make-array '(4) :initial-contents "FOOD"    (let ((name (make-array '(4) :initial-contents "FOOD"
96                            :element-type 'base-char                            :element-type 'base-char
97                            :fill-pointer 3)))                            :fill-pointer 3)))
98      (find-symbol name "B"))      (find-symbol name "B"))
99    A::FOO :inherited)    A::FOO :inherited)
100    
101  (deftest find-package.20  (deftest find-symbol.20
102    (let* ((name0 (make-array '(5) :initial-contents "XFOOY"    (let* ((name0 (make-array '(5) :initial-contents "XFOOY"
103                              :element-type 'character))                              :element-type 'character))
104           (name (make-array '(3) :element-type 'character           (name (make-array '(3) :element-type 'character
# Line 107  Line 107 
107      (find-symbol name "B"))      (find-symbol name "B"))
108    A::FOO :inherited)    A::FOO :inherited)
109    
110  (deftest find-package.21  (deftest find-symbol.21
111    (let* ((name0 (make-array '(5) :initial-contents "XFOOY"    (let* ((name0 (make-array '(5) :initial-contents "XFOOY"
112                              :element-type 'base-char))                              :element-type 'base-char))
113           (name (make-array '(3) :element-type 'base-char           (name (make-array '(3) :element-type 'base-char

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

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