/[gcl]/gcl/ansi-tests/cons-test-14.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-14.lsp

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

revision 1.5 by pfdietz, Sat Jan 18 12:49:35 2003 UTC revision 1.6 by pfdietz, Fri Jan 24 04:22:54 2003 UTC
# Line 29  Line 29 
29               (a b c . d)               (a b c . d)
30               ,(make-array '(10))               ,(make-array '(10))
31               "ancadas"  #\w)))               "ancadas"  #\w)))
32      (not (every      (notnot-mv
33            #'(lambda (x)       (every
34                (let ((result (catch-type-error (member-if #'listp x))))        #'(lambda (x)
35                  (or (eqt result 'type-error)            (let ((result (catch-type-error (member-if #'listp x))))
36                      (progn              (or (eqt result 'type-error)
37                        (format t "~%On ~S: returned ~%~S" x result)                  (progn
38                        nil))))                    (format t "~%On ~S: returned ~%~S" x result)
39            test-inputs)))                    nil))))
40    nil)        test-inputs)))
41      t)
42    
43  (deftest member-if-5  (deftest member-if-5
44    (member-if #'identity '(1 2 3 4 5) :key #'evenp)    (member-if #'identity '(1 2 3 4 5) :key #'evenp)
# Line 196  Line 197 
197  (deftest member-if-not.error.7  (deftest member-if-not.error.7
198    (classify-error (member-if-not #'null '(a b c) 1 2))    (classify-error (member-if-not #'null '(a b c) 1 2))
199    program-error)    program-error)
   
     

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