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
abcl
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
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
abcl
abcl
Commits
9b8bb467
Commit
9b8bb467
authored
Feb 13, 2010
by
ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
In the category of making things readable:
readable class cast exceptions for NULL and UNBOUND values.
parent
6ffc708d
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
16 additions
and
14 deletions
+16
-14
src/org/armedbear/lisp/Lisp.java
src/org/armedbear/lisp/Lisp.java
+16
-14
No files found.
src/org/armedbear/lisp/Lisp.java
View file @
9b8bb467
...
...
@@ -2619,23 +2619,25 @@ public final class Lisp
public
static
final
Symbol
_COMPILE_FILE_ENVIRONMENT_
=
exportSpecial
(
"*COMPILE-FILE-ENVIRONMENT*"
,
PACKAGE_SYS
,
NIL
);
public
static
final
LispObject
UNBOUND_VALUE
=
new
LispObject
()
public
static
final
LispObject
UNBOUND_VALUE
=
new
unboundValue
();
private
static
class
unboundValue
extends
LispObject
{
@Override
public
String
writeToString
()
{
@Override
public
String
writeToString
()
{
return
"#<UNBOUND>"
;
}
};
return
"#<UNBOUND>"
;
}
}
public
static
final
LispObject
NULL_VALUE
=
new
LispObject
()
public
static
final
LispObject
NULL_VALUE
=
new
nullValue
();
private
static
class
nullValue
extends
LispObject
{
@Override
public
String
writeToString
()
{
@Override
public
String
writeToString
()
{
return
"null"
;
}
};
return
"null"
;
}
}
public
static
final
Symbol
_SLOT_UNBOUND_
=
exportConstant
(
"+SLOT-UNBOUND+"
,
PACKAGE_SYS
,
UNBOUND_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