Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Hugo Ishimaru
asdf
Commits
5cddb7a2
Commit
5cddb7a2
authored
Oct 12, 2017
by
Robert Goldman
Browse files
Merge branch 'preserve-readtable' into 'master'
Preserve syntax tables in perform define-op See merge request
asdf/asdf!85
parents
9a4203dc
4e75d4d0
Changes
1
Hide whitespace changes
Inline
Side-by-side
find-system.lisp
View file @
5cddb7a2
...
...
@@ -89,14 +89,16 @@
(
assert
(
equal
(
coerce-name
s
)
(
primary-system-name
s
)))
(
nest
(
if-let
((
pathname
(
first
(
input-files
o
s
)))))
(
let
((
readtable
*readtable*
)
;; save outer syntax tables. TODO: proper syntax-control
(
print-pprint-dispatch
*print-pprint-dispatch*
)))
(
with-standard-io-syntax
)
(
let
((
*print-readably*
nil
)
;; Note that our backward-compatible *readtable* is
;; a global readtable that gets globally side-effected. Ouch.
;; Same for the *print-pprint-dispatch* table.
;; We should do something about that for ASDF3 if possible, or else ASDF4.
(
*readtable*
*
readtable
*
)
(
*print-pprint-dispatch*
*
print-pprint-dispatch
*
)
(
*readtable*
readtable
)
;; restore inside syntax table
(
*print-pprint-dispatch*
print-pprint-dispatch
)
(
*package*
(
find-package
:asdf-user
))
(
*default-pathname-defaults*
;; resolve logical-pathnames so they won't wreak havoc in parsing namestrings.
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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