/[gcl]/gcl/ansi-tests/position-if-not.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/position-if-not.lsp

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

revision 1.4 by pfdietz, Tue Nov 5 13:51:27 2002 UTC revision 1.5 by pfdietz, Fri Jan 3 04:28:38 2003 UTC
# Line 433  Line 433 
433     (nil)))     (nil)))
434    
435  (deftest position-if-not-string.13  (deftest position-if-not-string.13
436    (let ((a (make-array '(10) :initial-contents (coerce "55555aaaaa" 'list)    (let ((a (make-array '(10) :initial-contents "55555aaaaa"
437                         :fill-pointer 5                         :fill-pointer 5
438                         :element-type 'character)))                         :element-type 'character)))
439      (and (stringp a)      (and (stringp a)

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