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
abcl
abcl
Commits
ae831b00
Commit
ae831b00
authored
Aug 26, 2012
by
rschlatte@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files
Update instance layout in (set-)standard-instance-access if necessary.
- Reported by Pascal Costanza
parent
f0b44db8
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/org/armedbear/lisp/StandardObject.java
View file @
ae831b00
...
...
@@ -428,6 +428,10 @@ public class StandardObject extends LispObject
public
LispObject
execute
(
LispObject
first
,
LispObject
second
)
{
final
StandardObject
instance
=
checkStandardObject
(
first
);
if
(
instance
.
layout
.
isInvalid
())
{
// Update instance.
instance
.
updateLayout
();
}
final
int
index
;
if
(
second
instanceof
Fixnum
)
{
index
=
((
Fixnum
)
second
).
value
;
...
...
@@ -473,6 +477,10 @@ public class StandardObject extends LispObject
LispObject
third
)
{
final
StandardObject
instance
=
checkStandardObject
(
first
);
if
(
instance
.
layout
.
isInvalid
())
{
// Update instance.
instance
.
updateLayout
();
}
final
int
index
;
if
(
second
instanceof
Fixnum
)
{
index
=
((
Fixnum
)
second
).
value
;
...
...
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