/[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.3 by pfdietz, Sat Sep 4 11:08:37 2004 UTC revision 1.4 by pfdietz, Sat Apr 23 14:33:35 2005 UTC
# Line 71  Line 71 
71    A::FOO :inherited)    A::FOO :inherited)
72    
73  (deftest find-symbol.15  (deftest find-symbol.15
74    (find-symbol "FOO" "B")    (find-symbol "FOO" "FS-B")
75    A::FOO :inherited)    FS-A::FOO :inherited)
76    
77  (deftest find-symbol.16  (deftest find-symbol.16
78    (find-symbol "FOO" (find-package "B"))    (find-symbol "FOO" (find-package "FS-B"))
79    A::FOO :inherited)    FS-A::FOO :inherited)
80    
81  (deftest find-symbol.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 "FS-B"))
85    A::FOO :inherited)    FS-A::FOO :inherited)
86    
87  (deftest find-symbol.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 "FS-B"))
92    A::FOO :inherited)    FS-A::FOO :inherited)
93    
94  (deftest find-symbol.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 "FS-B"))
99    A::FOO :inherited)    FS-A::FOO :inherited)
100    
101  (deftest find-symbol.20  (deftest find-symbol.20
102    (let* ((name0 (make-array '(5) :initial-contents "XFOOY"    (let* ((name0 (make-array '(5) :initial-contents "XFOOY"
# Line 104  Line 104 
104           (name (make-array '(3) :element-type 'character           (name (make-array '(3) :element-type 'character
105                             :displaced-to name0                             :displaced-to name0
106                             :displaced-index-offset 1)))                             :displaced-index-offset 1)))
107      (find-symbol name "B"))      (find-symbol name "FS-B"))
108    A::FOO :inherited)    FS-A::FOO :inherited)
109    
110  (deftest find-symbol.21  (deftest find-symbol.21
111    (let* ((name0 (make-array '(5) :initial-contents "XFOOY"    (let* ((name0 (make-array '(5) :initial-contents "XFOOY"
# Line 113  Line 113 
113           (name (make-array '(3) :element-type 'base-char           (name (make-array '(3) :element-type 'base-char
114                             :displaced-to name0                             :displaced-to name0
115                             :displaced-index-offset 1)))                             :displaced-index-offset 1)))
116      (find-symbol name "B"))      (find-symbol name "FS-B"))
117    A::FOO :inherited)    FS-A::FOO :inherited)
118    
119  (deftest find-symbol.22  (deftest find-symbol.22
120    (find-symbol "FOO" (make-array '(1) :initial-element #\B :element-type 'base-char))    (find-symbol "FOO" (make-array '(4) :initial-contents "FS-B" :element-type 'base-char))
121    A::FOO :inherited)    FS-A::FOO :inherited)
122    
123  (deftest find-symbol.23  (deftest find-symbol.23
124    (find-symbol "FOO" (make-array '(2) :initial-element #\B    (find-symbol "FOO" (make-array '(5) :initial-contents "FS-BX"
125                                   :fill-pointer 1                                   :fill-pointer 4
126                                   :element-type 'base-char))                                   :element-type 'base-char))
127    A::FOO :inherited)    FS-A::FOO :inherited)
128    
129    
130    

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

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