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

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

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

revision 1.2 by pfdietz, Tue May 31 23:50:26 2005 UTC revision 1.3 by pfdietz, Tue Jun 14 02:22:33 2005 UTC
# Line 27  Line 27 
27  ;;;  structure, condition, or type, when the symbol has been  ;;;  structure, condition, or type, when the symbol has been
28  ;;;  declared as a declaration name, or vice versa, signals an error."  ;;;  declared as a declaration name, or vice versa, signals an error."
29    
30    ;;; Declare these only if bad declarations produce warnings.
31    
32    (when (block done
33            (handler-bind ((warning #'(lambda (c) (return-from done t))))
34                          (eval `(let () (declare (,(gensym))) nil))))
35    
36  (deftest declaration.4  (deftest declaration.4
37    (let ((sym (gensym)))    (let ((sym (gensym)))
38      (proclaim `(declaration ,sym))      (proclaim `(declaration ,sym))
# Line 54  Line 60 
60    
61  (deftest declaration.8  (deftest declaration.8
62    (let ((sym (gensym)))    (let ((sym (gensym)))
63      (eval `(deftype ,sym () error))      (eval `(deftype ,sym () 'error))
64      (eval `(signals-error-always (proclaim '(declaration ,sym))      (eval `(signals-error-always (proclaim '(declaration ,sym))
65                                   error)))                                   error)))
66    t t)    t t)
# Line 80  Line 86 
86                                   error)))                                   error)))
87    t t)    t t)
88    
89    )
90    
91    
92    
93    

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