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

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

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

revision 1.2 by pfdietz, Mon Jan 13 14:11:49 2003 UTC revision 1.3 by pfdietz, Wed Jan 29 02:11:54 2003 UTC
# Line 11  Line 11 
11  ;;; nthcdr  ;;; nthcdr
12    
13  (deftest nthcdr.error.1  (deftest nthcdr.error.1
14    (catch-type-error (nthcdr nil (copy-tree '(a b c d))))    (classify-error (nthcdr nil (copy-tree '(a b c d))))
15    type-error)    type-error)
16    
17  (deftest nthcdr.error.2  (deftest nthcdr.error.2
18    (catch-type-error (nthcdr 'a (copy-tree '(a b c d))))    (classify-error (nthcdr 'a (copy-tree '(a b c d))))
19    type-error)    type-error)
20    
21  (deftest nthcdr.error.3  (deftest nthcdr.error.3
22    (catch-type-error (nthcdr 0.1 (copy-tree '(a b c d))))    (classify-error (nthcdr 0.1 (copy-tree '(a b c d))))
23    type-error)    type-error)
24    
25  (deftest nthcdr.error.4  (deftest nthcdr.error.4
26    (catch-type-error (nthcdr #\A (copy-tree '(a b c d))))    (classify-error (nthcdr #\A (copy-tree '(a b c d))))
27    type-error)    type-error)
28    
29  (deftest nthcdr.error.5  (deftest nthcdr.error.5
30    (catch-type-error (nthcdr '(a) (copy-tree '(a b c d))))    (classify-error (nthcdr '(a) (copy-tree '(a b c d))))
31    type-error)    type-error)
32    
33  (deftest nthcdr.error.6  (deftest nthcdr.error.6
34    (catch-type-error (nthcdr -10 (copy-tree '(a b c d))))    (classify-error (nthcdr -10 (copy-tree '(a b c d))))
35    type-error)    type-error)
36    
37  (deftest nthcdr.error.7  (deftest nthcdr.error.7
# Line 47  Line 47 
47    program-error)    program-error)
48    
49  (deftest nthcdr.error.10  (deftest nthcdr.error.10
50    (catch-type-error (nthcdr 3 (cons 'a 'b)))    (classify-error (nthcdr 3 (cons 'a 'b)))
51      type-error)
52    
53    (deftest nthcdr.error.11
54      (classify-error (locally (nthcdr 'a (copy-tree '(a b c d))) t))
55    type-error)    type-error)
56    
57  (deftest nthcdr-7  (deftest nthcdr-7
58      (nthcdr 0 (copy-tree '(a b c d . e)))    (nthcdr 0 (copy-tree '(a b c d . e)))
59    (a b c d . e))    (a b c d . e))
60    
61  (deftest nthcdr-8  (deftest nthcdr-8
62      (nthcdr 1 (copy-tree '(a b c d)))    (nthcdr 1 (copy-tree '(a b c d)))
63    (b c d))    (b c d))
64    
65  (deftest nthcdr-9  (deftest nthcdr-9
66      (nthcdr 10 nil)    (nthcdr 10 nil)
67    nil)    nil)
68    
69  (deftest nthcdr-10  (deftest nthcdr-10
70      (nthcdr 4 (list 'a 'b 'c))    (nthcdr 4 (list 'a 'b 'c))
71    nil)    nil)
72    
73  (deftest nthcdr-11  (deftest nthcdr-11
74      (nthcdr 1 (cons 'a 'b))    (nthcdr 1 (cons 'a 'b))
75    b)    b)
76    
77    
# Line 75  Line 79 
79  ;;; rest  ;;; rest
80    
81  (deftest rest-1  (deftest rest-1
82      (rest (list 'a 'b 'c))    (rest (list 'a 'b 'c))
83    (b c))    (b c))
84    
85  (deftest rest.error.1  (deftest rest.error.1

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