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

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

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

revision 1.5 by pfdietz, Sun Jun 20 20:06:23 2004 UTC revision 1.6 by pfdietz, Tue Jun 14 03:05:19 2005 UTC
# Line 76  Line 76 
76       i))       i))
77    (a b c) 1)    (a b c) 1)
78    
79    (def-fold-test butlast.fold.1 (butlast '(a b) 1))
80    (def-fold-test butlast.fold.2 (butlast '(a b c d e f) 3))
81    (def-fold-test butlast.fold.3 (butlast '(a b c d e f g h i) 7))
82    
83    ;;; Error tests
84    
85  (deftest butlast.error.1  (deftest butlast.error.1
86    (signals-error (butlast (copy-tree '(a b c d)) 'a)    (signals-error (butlast (copy-tree '(a b c d)) 'a)
87                   type-error)                   type-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