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
Breanndán Ó Nualláin
iterate
Commits
464e0258
Commit
464e0258
authored
May 06, 2007
by
Attila Lendvai
Browse files
Renamed back to sharpL-reader
darcs-hash:ae236199ac83a8f41b6e2bfdccf3680f96bb84bb
parent
a7663187
Changes
1
Hide whitespace changes
Inline
Side-by-side
iterate.lisp
View file @
464e0258
...
...
@@ -452,7 +452,7 @@
(
eval-when
(
:compile-toplevel
:execute
)
(
defun
sharp
-l
-reader
(
stream
subchar
n-args
)
(
defun
sharp
L
-reader
(
stream
subchar
n-args
)
(
declare
(
ignore
subchar
))
(
let*
((
form
(
read
stream
t
nil
t
))
(
bang-vars
(
sort
(
bang-vars
form
)
#'
<
:key
#'
bang-var-num
))
...
...
@@ -505,13 +505,13 @@
(
error
"#L: ~a is not a valid variable specifier"
sym
)
num
)))
(
defun
enable-sharp
-l
-reader
()
(
set-dispatch-macro-character
#\#
#\L
#'
sharp
-l
-reader
))
(
defun
enable-sharp
L
-reader
()
(
set-dispatch-macro-character
#\#
#\L
#'
sharp
L
-reader
))
;; According to CLHS, *readtable* must be rebound when compiling
;; so we are free to reassign it to a copy and modify that copy.
(
setf
*readtable*
(
copy-readtable
*readtable*
))
(
enable-sharp
-l
-reader
)
(
enable-sharp
L
-reader
)
)
; end eval-when
...
...
@@ -520,7 +520,7 @@
#+#.(cl:when (cl:find-package "SWANK") '(:and))
(unless (assoc "ITERATE" swank:*readtable-alist* :test #'string=)
(bind ((*readtable* (copy-readtable *readtable*)))
(enable-sharp
-l
-reader)
(enable-sharp
L
-reader)
(push (cons "ITERATE" *readtable*) swank:*readtable-alist*)))
;|#
...
...
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