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

Diff of /gcl/ansi-tests/assoc-if.lsp

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

revision 1.3 by pfdietz, Sat Aug 2 20:01:44 2003 UTC revision 1.4 by pfdietz, Mon Aug 18 13:23:42 2003 UTC
# Line 37  Line 37 
37    (6 . c))    (6 . c))
38    
39  (deftest assoc-if.4  (deftest assoc-if.4
40      (assoc-if #'null '((a . b) nil (c . d) (nil . e) (f . g)))    (assoc-if #'null '((a . b) nil (c . d) (nil . e) (f . g)))
41    (nil . e))    (nil . e))
42    
43    (deftest assoc-if.5
44      (let () (assoc-if #'null '((a . b) nil (c . d) (nil . e) (f . g))))
45      (nil . e))
46    
47    
48  ;;; Order of argument evaluation  ;;; Order of argument evaluation
49    
50  (deftest assoc-if.order.1  (deftest assoc-if.order.1

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

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