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

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

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

revision 1.4 by pfdietz, Fri Jan 24 04:22:54 2003 UTC revision 1.5 by pfdietz, Fri Feb 14 05:10:36 2003 UTC
# Line 79  Line 79 
79    (notevery 'null '(nil nil nil nil))    (notevery 'null '(nil nil nil nil))
80    nil)    nil)
81    
82    (deftest notevery.order.1
83      (let ((i 0) a b)
84        (values
85         (notevery (progn (setf a (incf i)) #'identity)
86                   (progn (setf b (incf i)) '(a b c d)))
87         i a b))
88      nil 2 1 2)
89    
90  ;;; Error cases  ;;; Error cases
91    
92  (deftest notevery.error.1  (deftest notevery.error.1

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

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