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

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

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

revision 1.16 by pfdietz, Wed Sep 22 12:06:59 2004 UTC revision 1.17 by pfdietz, Wed Sep 22 12:21:00 2004 UTC
# Line 692  Line 692 
692                           :displaced-index-offset 3                           :displaced-index-offset 3
693                           :element-type (array-element-type s1))))                           :element-type (array-element-type s1))))
694      (position #\c s2 :from-end t))      (position #\c s2 :from-end t))
695    6)    10)
696    
697  (deftest position-string.33  (deftest position-string.33
698    (do-special-strings    (do-special-strings
# Line 707  Line 707 
707     (s "abcdabcdabcd" nil)     (s "abcdabcdabcd" nil)
708     (let* ((c #\c)     (let* ((c #\c)
709            (pos (position c s :from-end t)))            (pos (position c s :from-end t)))
710       (assert (eql pos 2) () "Last position of ~A in ~A is ~A" c s pos)))       (assert (eql pos 10) () "Last position of ~A in ~A is ~A" c s pos)))
711    nil)    nil)
712    
713  (defharmless position.test-and-test-not.1  (defharmless position.test-and-test-not.1

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

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