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

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

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

revision 1.3 by pfdietz, Sun Jun 20 20:06:23 2004 UTC revision 1.4 by pfdietz, Tue Jun 14 03:05:19 2005 UTC
# Line 47  Line 47 
47    ((a . b)(c . d))    ((a . b)(c . d))
48    3 1 2 3)    3 1 2 3)
49    
50    (def-fold-test acons.fold.1 (acons 'x 'y nil))
51    (def-fold-test acons.fold.2 (acons 1 2 '((3 . 4) (5 . 6))))
52    
53    ;;; Error tests
54    
55  (deftest acons.error.1  (deftest acons.error.1
56    (signals-error (acons) program-error)    (signals-error (acons) program-error)
57    t)    t)

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