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

Diff of /gcl/ansi-tests/find-if.lsp

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

revision 1.3 by pfdietz, Mon Nov 4 04:31:48 2002 UTC revision 1.4 by pfdietz, Fri Jan 3 04:28:38 2003 UTC
# Line 496  Line 496 
496     (#\6)))     (#\6)))
497    
498  (deftest find-if-string.19  (deftest find-if-string.19
499    (let ((a (make-array '(10) :initial-contents (coerce "123456789a" 'list)    (let ((a (make-array '(10) :initial-contents "123456789a"
500                         :fill-pointer 5                         :fill-pointer 5
501                         :element-type 'character)))                         :element-type 'character)))
502      (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