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

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

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

revision 1.1 by pfdietz, Sat May 21 12:42:46 2005 UTC revision 1.2 by pfdietz, Sat May 21 12:58:02 2005 UTC
# Line 12  Line 12 
12               (let ((,sym :good)) (%f)))))               (let ((,sym :good)) (%f)))))
13    :good)    :good)
14    
15    (deftest proclaim.2
16      (let ((sym (gensym)))
17        (proclaim `(declaration ,sym))
18        (proclaim `(,sym))
19        nil)
20      nil)
21    
22  ;;; Error cases  ;;; Error cases
23    
24  (deftest proclaim.error.1  (deftest proclaim.error.1
# Line 42  Line 49 
49    (signals-error (proclaim `(ftype . foo)) type-error)    (signals-error (proclaim `(ftype . foo)) type-error)
50    t)    t)
51    
52    (deftest proclaim.error.8
53      (signals-error (proclaim '(type integer . foo)) type-error)
54      t)
55    
56    (deftest proclaim.error.9
57      (signals-error (proclaim '(integer . foo)) type-error)
58      t)
59    
60    (deftest proclaim.error.10
61      (signals-error (proclaim '(declaration . foo)) type-error)
62      t)
63    
64    (deftest proclaim.error.11
65      (signals-error (proclaim '(ftype (function (t) t) . foo)) type-error)
66      t)
67    
68    
69    
70    
71    

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

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