/[gcl]/gcl/ansi-tests/search-string.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/search-string.lsp

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

revision 1.3 by pfdietz, Tue Nov 5 13:51:27 2002 UTC revision 1.4 by pfdietz, Fri Jan 3 04:28:38 2003 UTC
# Line 132  Line 132 
132    nil)    nil)
133    
134  (deftest search-string.15  (deftest search-string.15
135    (let ((a (make-array '(10) :initial-contents (coerce "abbaaababb" 'list)    (let ((a (make-array '(10) :initial-contents "abbaaababb"
136                         :fill-pointer 5                         :fill-pointer 5
137                         :element-type 'character)))                         :element-type 'character)))
138      (values      (values

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