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

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

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

revision 1.8 by pfdietz, Wed Jan 29 02:11:55 2003 UTC revision 1.9 by pfdietz, Sat Feb 15 05:11:11 2003 UTC
# Line 444  Line 444 
444            (position-if-not (complement #'digit-char-p) a :from-end t))))            (position-if-not (complement #'digit-char-p) a :from-end t))))
445    nil 0 nil 4)    nil 0 nil 4)
446    
447    (deftest position-if-not.order.1
448      (let ((i 0) a b c d e f)
449        (values
450         (position-if-not
451          (progn (setf a (incf i)) (complement #'zerop))
452          (progn (setf b (incf i)) '(3 1 8 2 1 2 3 4))
453          :from-end (setf c (incf i))
454          :start (progn (setf d (incf i)) 1)
455          :end (progn (setf e (incf i)) 6)
456          :key (progn (setf f (incf i)) #'1-))
457         i a b c d e f))
458      4 6 1 2 3 4 5 6)
459    
460    (deftest position-if-not.order.2
461      (let ((i 0) a b c d e f)
462        (values
463         (position-if-not
464          (progn (setf a (incf i)) (complement #'zerop))
465          (progn (setf b (incf i)) '(3 1 8 2 1 2 3 4))
466          :key (progn (setf c (incf i)) #'1-)
467          :end (progn (setf d (incf i)) 6)
468          :start (progn (setf e (incf i)) 1)
469          :from-end (setf f (incf i)))
470         i a b c d e f))
471      4 6 1 2 3 4 5 6)
472    
473  ;;; Keyword tests  ;;; Keyword tests
474    
475  (deftest position-if-not.allow-other-keys.1  (deftest position-if-not.allow-other-keys.1

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

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