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
e8e730f4
Commit
e8e730f4
authored
Aug 27, 2011
by
mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files
Pass wrapped error message to IllegalMonitorException.
parent
9708836f
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/org/armedbear/lisp/IllegalMonitorState.java
View file @
e8e730f4
...
...
@@ -47,9 +47,23 @@ public final class IllegalMonitorState extends ProgramError
setFormatArguments
(
NIL
);
}
public
IllegalMonitorState
(
String
message
)
{
// This is really just an ordinary PROGRAM-ERROR, broken out into its
// own Java class as a convenience for the implementation.
super
(
StandardClass
.
PROGRAM_ERROR
);
if
(
message
!=
null
)
{
this
.
message
=
message
;
}
setFormatControl
(
getMessage
());
setFormatArguments
(
NIL
);
}
String
message
=
"Illegal monitor state."
;
@Override
public
String
getMessage
()
{
return
"Illegal monitor state."
;
return
message
;
}
}
src/org/armedbear/lisp/LispThread.java
View file @
e8e730f4
...
...
@@ -1249,7 +1249,7 @@ public final class LispThread extends LispObject
currentThread
().
processThreadInterrupts
();
}
catch
(
IllegalMonitorStateException
e
)
{
return
error
(
new
IllegalMonitorState
());
return
error
(
new
IllegalMonitorState
(
e
.
getMessage
()
));
}
return
NIL
;
}
...
...
@@ -1265,7 +1265,7 @@ public final class LispThread extends LispObject
currentThread
().
processThreadInterrupts
();
}
catch
(
IllegalMonitorStateException
e
)
{
return
error
(
new
IllegalMonitorState
());
return
error
(
new
IllegalMonitorState
(
e
.
getMessage
()
));
}
return
NIL
;
}
...
...
@@ -1284,7 +1284,7 @@ public final class LispThread extends LispObject
object
.
lockableInstance
().
notify
();
}
catch
(
IllegalMonitorStateException
e
)
{
return
error
(
new
IllegalMonitorState
());
return
error
(
new
IllegalMonitorState
(
e
.
getMessage
()
));
}
return
NIL
;
}
...
...
@@ -1302,7 +1302,7 @@ public final class LispThread extends LispObject
object
.
lockableInstance
().
notifyAll
();
}
catch
(
IllegalMonitorStateException
e
)
{
return
error
(
new
IllegalMonitorState
());
return
error
(
new
IllegalMonitorState
(
e
.
getMessage
()
));
}
return
NIL
;
}
...
...
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