/[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.5 by pfdietz, Fri Jan 17 13:29:23 2003 UTC revision 1.6 by pfdietz, Sat Feb 15 05:11:12 2003 UTC
# Line 711  Line 711 
711      result)      result)
712    #*01111)    #*01111)
713    
714    (deftest substitute-if-not.order.1
715      (let ((i 0) a b c d e f g h)
716        (values
717         (substitute-if-not
718          (progn (setf a (incf i)) 'a)
719          (progn (setf b (incf i)) #'identity)
720          (progn (setf c (incf i)) (list nil 1 2 nil 3 4 nil 5))
721          :count (progn (setf d (incf i)) 2)
722          :start (progn (setf e (incf i)) 0)
723          :end (progn (setf f (incf i)) 7)
724          :key (progn (setf g (incf i)) #'identity)
725          :from-end (setf h (incf i))
726          )
727         i a b c d e f g h))
728      (nil 1 2 a 3 4 a 5)
729      8 1 2 3 4 5 6 7 8)
730    
731    (deftest substitute-if-not.order.2
732      (let ((i 0) a b c d e f g h)
733        (values
734         (substitute-if-not
735          (progn (setf a (incf i)) 'a)
736          (progn (setf b (incf i)) #'identity)
737          (progn (setf c (incf i)) (list nil 1 2 nil 3 4 nil 5))
738          :from-end (setf h (incf i))
739          :key (progn (setf g (incf i)) #'identity)
740          :end (progn (setf f (incf i)) 7)
741          :start (progn (setf e (incf i)) 0)
742          :count (progn (setf d (incf i)) 2)
743          )
744         i a b c d e f g h))
745      (nil 1 2 a 3 4 a 5)
746      8 1 2 3 8 7 6 5 4)
747    
748  ;;; Keyword tests  ;;; Keyword tests
749    
750  (deftest substitute-if-not.allow-other-keys.1  (deftest substitute-if-not.allow-other-keys.1

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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