Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
ansi-test
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Karsten Poeck
ansi-test
Commits
9cb4a4c3
Commit
9cb4a4c3
authored
Apr 24, 2003
by
pfdietz
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
More :default-initargs tests
parent
432f6c97
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
56 additions
and
8 deletions
+56
-8
ansi-tests/defclass-01.lsp
ansi-tests/defclass-01.lsp
+56
-8
No files found.
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
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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