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
98b78054
Commit
98b78054
authored
Aug 20, 2011
by
ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files
Fix #161: READTABLE-CASE setting of *readtable* affects FASL content.
Note: Fix based on research by Alessio Stalla.
parent
43f1065a
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/org/armedbear/lisp/Primitives.java
View file @
98b78054
...
...
@@ -5847,4 +5847,17 @@ public final class Primitives {
}
};
private
static
final
Primitive
GET_FASL_READTABLE
=
new
pf_get_fasl_readtable
();
private
static
class
pf_get_fasl_readtable
extends
Primitive
{
pf_get_fasl_readtable
()
{
super
(
"get-fasl-readtable"
,
PACKAGE_SYS
,
false
);
}
@Override
public
LispObject
execute
()
{
return
FaslReadtable
.
getInstance
();
}
}
}
src/org/armedbear/lisp/dump-form.lisp
View file @
98b78054
...
...
@@ -120,6 +120,12 @@
(
t
(
%stream-output-object
object
stream
))))
(
defvar
*the-fasl-printer-readtable*
(
copy-readtable
(
get-fasl-readtable
))
"This variable holds a copy of the FASL readtable which we need to bind
below, in order to prevent the current readtable from influencing the content
being written to the FASL: the READTABLE-CASE setting influences symbol printing."
)
(
declaim
(
ftype
(
function
(
t
stream
)
t
)
dump-form
))
(
defun
dump-form
(
form
stream
)
(
let
((
*print-fasl*
t
)
...
...
@@ -142,6 +148,7 @@
(
*print-readably*
t
)
(
*print-right-margin*
nil
)
(
*print-structure*
t
)
(
*readtable*
*the-fasl-printer-readtable*
)
;; make sure to write all floats with their exponent marker:
;; the dump-time default may not be the same at load-time
...
...
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