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

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

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

revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC revision 1.3 by pfdietz, Mon Jan 13 14:11:49 2003 UTC
# Line 58  Line 58 
58      (catch-type-error (butlast 'a 0))      (catch-type-error (butlast 'a 0))
59    type-error)    type-error)
60    
61    (deftest butlast-8
62      (classify-error (butlast))
63      program-error)
64    
65    (deftest butlast-9
66      (classify-error (butlast '(a b c) 3 3))
67      program-error)
68    
69  (deftest nbutlast-1  (deftest nbutlast-1
70      (let ((x (list 'a 'b 'c 'd 'e)))      (let ((x (list 'a 'b 'c 'd 'e)))
71        (let ((y (cdr x))        (let ((y (cdr x))
# Line 125  Line 133 
133  (deftest nbutlast-13  (deftest nbutlast-13
134      (catch-type-error (nbutlast (list 'a) -100.0))      (catch-type-error (nbutlast (list 'a) -100.0))
135    type-error)    type-error)
136    
137    (deftest nbutlast-14
138      (classify-error (nbutlast))
139      program-error)
140    
141    (deftest nbutlast-15
142      (classify-error (nbutlast (list 'a 'b 'c) 3 3))
143      program-error)

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

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