/[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.7 by pfdietz, Wed Jan 29 02:11:55 2003 UTC revision 1.8 by pfdietz, Fri Feb 14 05:10:36 2003 UTC
# Line 579  Line 579 
579  (deftest find-if.error.11  (deftest find-if.error.11
580    (classify-error (locally (find-if #'null 'b) t))    (classify-error (locally (find-if #'null 'b) t))
581    type-error)    type-error)
582    
583    ;;; Order of evaluation tests
584    
585    (deftest find-if.order.1
586      (let ((i 0) x y)
587        (values
588         (find-if (progn (setf x (incf i)) #'identity)
589                  (progn (setf y (incf i)) '(nil nil nil a nil nil)))
590         i x y))
591      a 2 1 2)
592    
593    (deftest find-if.order.2
594      (let ((i 0) a b c d e f g)
595        (values
596         (find-if (progn (setf a (incf i)) #'null)
597                  (progn (setf b (incf i)) '(nil nil nil a nil nil))
598                  :start (progn (setf c (incf i)) 1)
599                  :end   (progn (setf d (incf i)) 4)
600                  :from-end (setf e (incf i))
601                  :key   (progn (setf f (incf i)) #'null)
602                  )
603         i a b c d e f))
604      a 6 1 2 3 4 5 6)
605    
606    
607    (deftest find-if.order.3
608      (let ((i 0) a b c d e f g)
609        (values
610         (find-if (progn (setf a (incf i)) #'null)
611                  (progn (setf b (incf i)) '(nil nil nil a nil nil))
612                  :key   (progn (setf c (incf i)) #'null)
613                  :from-end (setf d (incf i))
614                  :end   (progn (setf e (incf i)) 4)
615                  :start (progn (setf f (incf i)) 1)
616                  )
617         i a b c d e f))
618      a 6 1 2 3 4 5 6)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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