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

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

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

revision 1.7 by pfdietz, Wed Feb 19 13:24:00 2003 UTC revision 1.8 by pfdietz, Sun Apr 20 22:59:25 2003 UTC
# Line 43  Line 43 
43  ;;;                 "This is a docstring"  ;;;                 "This is a docstring"
44  ;;;                 "This is an unnecessary extra argument."))  ;;;                 "This is an unnecessary extra argument."))
45  ;;;   program-error)  ;;;   program-error)
46    
47    (deftest defconstant.error.1
48      (classify-error (funcall (macro-function 'defconstant)))
49      program-error)
50    
51    (deftest defconstant.error.2
52      (classify-error (funcall (macro-function 'defconstant)
53                               '(defconstant +nonexistent-constant+ 0)))
54      program-error)
55    
56    (deftest defconstant.error.3
57      (classify-error (funcall (macro-function 'defconstant)
58                               '(defconstant +nonexistent-constant+ 0)
59                               nil nil))
60      program-error)
61                              

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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