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

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

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

revision 1.2 by pfdietz, Mon Nov 11 02:12:22 2002 UTC revision 1.3 by pfdietz, Fri Jan 3 04:28:38 2003 UTC
# Line 402  Line 402 
402    t)    t)
403    
404  (deftest substitute-if-not-string.28  (deftest substitute-if-not-string.28
405    (let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)    (let* ((x (make-array '(10) :initial-contents "abacbadeaf"
406                         :fill-pointer 5 :element-type 'character))                         :fill-pointer 5 :element-type 'character))
407           (result (substitute-if-not #\z (is-not-eql-p #\a) x)))           (result (substitute-if-not #\z (is-not-eql-p #\a) x)))
408      result)      result)
409    "zbzcb")    "zbzcb")
410    
411  (deftest substitute-if-not-string.29  (deftest substitute-if-not-string.29
412    (let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)    (let* ((x (make-array '(10) :initial-contents "abacbadeaf"
413                         :fill-pointer 5 :element-type 'character))                         :fill-pointer 5 :element-type 'character))
414           (result (substitute-if-not #\z (is-not-eql-p #\a) x :from-end t)))           (result (substitute-if-not #\z (is-not-eql-p #\a) x :from-end t)))
415      result)      result)
416    "zbzcb")    "zbzcb")
417    
418  (deftest substitute-if-not-string.30  (deftest substitute-if-not-string.30
419    (let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)    (let* ((x (make-array '(10) :initial-contents "abacbadeaf"
420                         :fill-pointer 5 :element-type 'character))                         :fill-pointer 5 :element-type 'character))
421           (result (substitute-if-not #\z (is-not-eql-p #\a) x :count 1)))           (result (substitute-if-not #\z (is-not-eql-p #\a) x :count 1)))
422      result)      result)
423    "zbacb")    "zbacb")
424    
425  (deftest substitute-if-not-string.31  (deftest substitute-if-not-string.31
426    (let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)    (let* ((x (make-array '(10) :initial-contents "abacbadeaf"
427                         :fill-pointer 5 :element-type 'character))                         :fill-pointer 5 :element-type 'character))
428           (result (substitute-if-not #\z (is-not-eql-p #\a) x           (result (substitute-if-not #\z (is-not-eql-p #\a) x
429                                      :from-end t :count 1)))                                      :from-end t :count 1)))

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

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