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

Diff of /gcl/ansi-tests/substitute-if.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 735  Line 735 
735      result)      result)
736    #*01111)    #*01111)
737    
738    (deftest substitute-if.order.1
739      (let ((i 0) a b c d e f g h)
740        (values
741         (substitute-if
742          (progn (setf a (incf i)) 'a)
743          (progn (setf b (incf i)) #'null)
744          (progn (setf c (incf i)) (list nil 1 2 nil 3 4 nil 5))
745          :count (progn (setf d (incf i)) 2)
746          :start (progn (setf e (incf i)) 0)
747          :end (progn (setf f (incf i)) 7)
748          :key (progn (setf g (incf i)) #'identity)
749          :from-end (setf h (incf i))
750          )
751         i a b c d e f g h))
752      (nil 1 2 a 3 4 a 5)
753      8 1 2 3 4 5 6 7 8)
754    
755    (deftest substitute-if.order.2
756      (let ((i 0) a b c d e f g h)
757        (values
758         (substitute-if
759          (progn (setf a (incf i)) 'a)
760          (progn (setf b (incf i)) #'null)
761          (progn (setf c (incf i)) (list nil 1 2 nil 3 4 nil 5))
762          :from-end (setf h (incf i))
763          :key (progn (setf g (incf i)) #'identity)
764          :end (progn (setf f (incf i)) 7)
765          :start (progn (setf e (incf i)) 0)
766          :count (progn (setf d (incf i)) 2)
767          )
768         i a b c d e f g h))
769      (nil 1 2 a 3 4 a 5)
770      8 1 2 3 8 7 6 5 4)
771    
772  ;;; Keyword tests  ;;; Keyword tests
773    
774  (deftest substitute-if.allow-other-keys.1  (deftest substitute-if.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