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 |
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) |