/[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.1 by pfdietz, Sun May 29 12:30:13 2005 UTC revision 1.2 by pfdietz, Tue May 31 23:50:26 2005 UTC
# Line 21  Line 21 
21      nil)      nil)
22    nil)    nil)
23    
24  ;;; For the error tests, see the page in the CLHS for TYPE.  ;;; For the error tests, see the page in the CLHS for TYPE:
25  ;;; "A symbol cannot be both the name of a type and the name  ;;; "A symbol cannot be both the name of a type and the name
26  ;;;  of a declaration. Defining a symbol as the name of a class,  ;;;  of a declaration. Defining a symbol as the name of a class,
27  ;;;  structure, condition, or type, when the symbol has been  ;;;  structure, condition, or type, when the symbol has been
# Line 61  Line 61 
61    
62  (deftest declaration.9  (deftest declaration.9
63    (let ((sym (gensym)))    (let ((sym (gensym)))
64      (eval `(defstruct ,sym a b c) error)      (eval `(defstruct ,sym a b c))
65      (eval `(signals-error-always (proclaim '(declaration ,sym))      (eval `(signals-error-always (proclaim '(declaration ,sym))
66                                   error)))                                   error)))
67    t t)    t t)

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