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
a62ceed5
Commit
a62ceed5
authored
Oct 12, 2017
by
Francois-Rene Rideau
Browse files
Add test for modifying the current syntax in a ddo
parent
8b0376d1
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/defsystem-depends-on/defsystem-dependency.lisp
View file @
a62ceed5
...
...
@@ -9,3 +9,17 @@
(
eval-when
(
:compile-toplevel
:execute
)
(
incf
*cdd*
))
;; Modify the current *readtable* -- it's very rude, but it's still supported,
;; and some bugs in previous versions of ASDF (e.g. 3.3.0, fixed in 3.3.0.1)
;; failed to restore syntax tables inside with-standard-io-syntax, causing it to fail.
(
defun
sharp-b
(
stream
chr
arg
)
(
declare
(
ignore
chr
arg
))
(
let
((
arg
(
read
stream
nil
nil
t
)))
(
if
*read-suppress*
nil
(
if
(
stringp
arg
)
(
map
'
(
vector
(
unsigned-byte
8
))
'char-code
arg
)
(
error
"#b takes a string argument: ~s"
arg
)))))
(
set-dispatch-macro-character
#\#
#\b
#'
sharp-b
)
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