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

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

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

revision 1.3 by pfdietz, Mon Jun 16 11:38:15 2003 UTC revision 1.4 by pfdietz, Sun Jul 27 15:30:39 2003 UTC
# Line 59  Line 59 
59    
60  (deftest assoc.12  (deftest assoc.12
61      (assoc #\e '(("abefd" . 1) ("aevgd" . 2) ("edada" . 3))      (assoc #\e '(("abefd" . 1) ("aevgd" . 2) ("edada" . 3))
62             :key #'(lambda (x) (char x 1)))             :key #'(lambda (x) (schar x 1)))
63    ("aevgd" . 2))    ("aevgd" . 2))
64    
65  (deftest assoc.13  (deftest assoc.13

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