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

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

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

revision 1.1 by pfdietz, Fri Oct 11 05:53:24 2002 UTC revision 1.2 by pfdietz, Mon Feb 17 11:54:02 2003 UTC
# Line 1  Line 1 
1  ;-*- Mode:     Lisp -*-  `;-*- Mode:     Lisp -*-
2  ;;;; Author:   Paul Dietz  ;;;; Author:   Paul Dietz
3  ;;;; Created:  Thu Oct 10 23:21:50 2002  ;;;; Created:  Thu Oct 10 23:21:50 2002
4  ;;;; Contains: Tests for DEFVAR  ;;;; Contains: Tests for DEFVAR
# Line 53  Line 53 
53    "And ever."    "And ever."
54    200    200
55    0)    0)
56    
57    (deftest defvar.error.1
58      (classify-error (defvar))
59      program-error)
60    
61    (deftest defvar.error.2
62      (classify-error (defvar *ignored-defvar-name* nil "documentation"
63                        "illegal extra argument"))
64      program-error)

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