Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
9cb4a4c3
Commit
9cb4a4c3
authored
Apr 24, 2003
by
pfdietz
Browse files
More :default-initargs tests
parent
432f6c97
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/defclass-01.lsp
View file @
9cb4a4c3
...
...
@@ -589,11 +589,14 @@
(declaim (special *class-21-s1-initvar-1* *class-21-s1-initvar-2*))
(defclass class-21 ()
((s1 :initarg :s1 :initarg :s1b)
(s2 :initarg :s1b :initarg :s2))
(:default-initargs :s1 (incf *class-21-s1-initvar-1*)
:s1b (incf *class-21-s1-initvar-2*)))
(let ((*class-21-s1-initvar-1* 0)
(*class-21-s1-initvar-2* 0))
(declaim (special *class-21-s1-initvar-1* *class-21-s1-initvar-2*))
(defclass class-21 ()
((s1 :initarg :s1 :initarg :s1b)
(s2 :initarg :s1b :initarg :s2))
(:default-initargs :s1 (incf *class-21-s1-initvar-1*)
:s1b (incf *class-21-s1-initvar-2*))))
(deftest class-21.1
(let* ((*class-21-s1-initvar-1* 10)
...
...
@@ -608,9 +611,54 @@
*class-21-s1-initvar-2*))
11 21 11 21)
(deftest class-21.2
(let* ((*class-21-s1-initvar-1* 10)
(*class-21-s1-initvar-2* 20)
(c (make-instance 'class-21 :s1 'x)))
(declare (special *class-21-s1-initvar-1*
*class-21-s1-initvar-2*))
(values
(slot-value c 's1)
(slot-value c 's2)
*class-21-s1-initvar-1*
*class-21-s1-initvar-2*))
x 21 10 21)
(deftest class-21.3
(let* ((*class-21-s1-initvar-1* 10)
(*class-21-s1-initvar-2* 20)
(c (make-instance 'class-21 :s1 'x :s1b 'y)))
(declare (special *class-21-s1-initvar-1*
*class-21-s1-initvar-2*))
(values
(slot-value c 's1)
(slot-value c 's2)
*class-21-s1-initvar-1*
*class-21-s1-initvar-2*))
x y 10 20)
(deftest class-21.4
(let* ((*class-21-s1-initvar-1* 10)
(*class-21-s1-initvar-2* 20)
(c (make-instance 'class-21 :s1b 'y)))
(declare (special *class-21-s1-initvar-1*
*class-21-s1-initvar-2*))
(values
(slot-value c 's1)
(slot-value c 's2)
*class-21-s1-initvar-1*
*class-21-s1-initvar-2*))
y y 11 20)
(deftest class-21.5
(let* ((*class-21-s1-initvar-1* 10)
(*class-21-s1-initvar-2* 20)
(c (make-instance 'class-21 :s2 'y)))
(declare (special *class-21-s1-initvar-1*
*class-21-s1-initvar-2*))
(values
(slot-value c 's1)
(slot-value c 's2)
*class-21-s1-initvar-1*
*class-21-s1-initvar-2*))
11 y 11 21)
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment