Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
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
f5a1078f
Commit
f5a1078f
authored
Apr 29, 2003
by
pfdietz
Browse files
More tests added.
parent
b0a1b4b1
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/reinitialize-instance.lsp
View file @
f5a1078f
...
...
@@ -50,6 +50,27 @@
(map-slot-value obj '(s1 s2))))
t (a b))
(deftest reinitialize-instance.6
(let* ((obj (make-instance 'class-07 :s1a 'a))
(obj2 (reinitialize-instance obj :s1b 'b)))
(values
(eqt obj obj2)
(slot-value obj 's1)
(slot-boundp* obj 's2)))
t b nil)
(deftest reinitialize-instance.7
(let* ((obj (make-instance 'class-07 :s1a 'a))
(obj2 (reinitialize-instance obj :s2 'b)))
(values
(eqt obj obj2)
(slot-value obj 's1)
(slot-value obj 's2)))
t a b)
...
...
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