2
;;;; Author: Paul Dietz
3
;;;; Created: Thu Oct 10 23:13:22 2002
4
;;;; Contains: Tests of DEFPARAMETER
8
(defparameter *defparameter-test-var-1* 100)
10
(deftest defparameter.1
11
*defparameter-test-var-1*
14
(deftest defparameter.2
15
(documentation '*defparameter-test-var-1* 'variable)
18
;;; Show that it's declared special.
19
(deftest defparameter.3
20
(flet ((%f () *defparameter-test-var-1*))
21
(let ((*defparameter-test-var-1* 29))
25
(deftest defparameter.4
27
(makunbound '*defparameter-test-var-2*)
28
(defparameter *defparameter-test-var-2* 200 "Whatever.")
29
(documentation '*defparameter-test-var-2* 'variable)
30
*defparameter-test-var-2*)
31
*defparameter-test-var-2*
32
*defparameter-test-var-2*
36
(deftest defparameter.5
38
(makunbound '*defparameter-test-var-2*)
39
(defparameter *defparameter-test-var-2* 200 "Whatever.")
40
(documentation '*defparameter-test-var-2* 'variable)
41
*defparameter-test-var-2*
42
(defparameter *defparameter-test-var-2* 300 "And ever.")
43
(documentation '*defparameter-test-var-2* 'variable)
44
*defparameter-test-var-2*
46
*defparameter-test-var-2*
47
*defparameter-test-var-2*
50
*defparameter-test-var-2*
54
;;; (deftest defparameter.error.1
55
;;; (signals-error (defparameter) program-error)
58
;;; (deftest defparameter.error.2
59
;;; (signals-error (defparameter *ignored-defparameter-name*)
63
;;; (deftest defparameter.error.3
64
;;; (signals-error (defparameter *ignored-defparameter-name* nil
66
;;; "illegal extra argument")
70
(deftest defparameter.error.1
71
(signals-error (funcall (macro-function 'defparameter))
75
(deftest defparameter.error.2
76
(signals-error (funcall (macro-function 'defparameter)
77
'(defparameter *nonexistent-variable* nil))
81
(deftest defparameter.error.3
82
(signals-error (funcall (macro-function 'defparameter)
83
'(defparameter *nonexistent-variable* nil)