/[gcl]/gcl/ansi-tests/subseq-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/subseq-aux.lsp

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

revision 1.1 by pfdietz, Wed Nov 27 04:22:36 2002 UTC revision 1.2 by pfdietz, Fri Jan 3 04:28:38 2003 UTC
# Line 174  Line 174 
174                                   'string))))))                                   'string))))))
175    
176  (defun subseq-string-3-body ()  (defun subseq-string-3-body ()
177    (let* ((s1 (make-array '(10) :initial-contents    (let* ((s1 (make-array '(10) :initial-contents "abcdefghij"
                          (coerce "abcdefghij" 'list)  
178                           :fill-pointer 8                           :fill-pointer 8
179                           :element-type 'character))                           :element-type 'character))
180           (len (length s1)))           (len (length s1)))
# Line 218  Line 217 
217                                  'bit-vector))))))                                  'bit-vector))))))
218    
219  (defun subseq-bit-vector-3-body ()  (defun subseq-bit-vector-3-body ()
220    (let* ((s1 (make-array '(10) :initial-contents    (let* ((s1 (make-array '(10) :initial-contents #*1101100110
                          (coerce #*1101100110 'list)  
221                           :fill-pointer 8                           :fill-pointer 8
222                           :element-type 'bit))                           :element-type 'bit))
223           (len (length s1)))           (len (length s1)))

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

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