1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Thu Oct 10 23:13:22 2002
;;;; Contains: Tests of DEFPARAMETER
(in-package :cl-test)
(defparameter *defparameter-test-var-1* 100)
(deftest defparameter.1
*defparameter-test-var-1*
100)
(deftest defparameter.2
(documentation '*defparameter-test-var-1* 'variable)
nil)
;;; Show that it's declared special.
(deftest defparameter.3
(flet ((%f () *defparameter-test-var-1*))
(let ((*defparameter-test-var-1* 29))
(%f)))
29)
(deftest defparameter.4
(values
(makunbound '*defparameter-test-var-2*)
(defparameter *defparameter-test-var-2* 200 "Whatever.")
(documentation '*defparameter-test-var-2* 'variable)
*defparameter-test-var-2*)
*defparameter-test-var-2*
*defparameter-test-var-2*
"Whatever."
200)
(deftest defparameter.5
(values
(makunbound '*defparameter-test-var-2*)
(defparameter *defparameter-test-var-2* 200 "Whatever.")
(documentation '*defparameter-test-var-2* 'variable)
*defparameter-test-var-2*
(defparameter *defparameter-test-var-2* 300 "And ever.")
(documentation '*defparameter-test-var-2* 'variable)
*defparameter-test-var-2*
)
*defparameter-test-var-2*
*defparameter-test-var-2*
"Whatever."
200
*defparameter-test-var-2*
"And ever."
300)
;;; (deftest defparameter.error.1
;;; (classify-error (defparameter))
;;; program-error)
;;;
;;; (deftest defparameter.error.2
;;; (classify-error (defparameter *ignored-defparameter-name*))
;;; program-error)
;;;
;;; (deftest defparameter.error.3
;;; (classify-error (defparameter *ignored-defparameter-name* nil
;;; "documentation"
;;; "illegal extra argument"))
;;; program-error)
|