Commit 40929b26 authored by asmyles's avatar asmyles

fixes for set-uri-reader-syntax

parent 961ec1f4
......@@ -27,9 +27,9 @@
(defun set-uri-reader-syntax (uri-dmc &optional (readtable *readtable*))
(flet ((uri-syntax (stream char prefix)
(declare (ignore c p))
(declare (ignore char prefix))
(uri (read stream t nil t))))
(set-dispatch-macro-character (char uri-dmc 0) (char uri-dmc 1) readtable)))
(set-dispatch-macro-character (char uri-dmc 0) (char uri-dmc 1) (function uri-syntax) readtable)))
(defmacro with-uri-syntax ((uri-dmc) &body body)
`(let ((*readtable* (copy-readtable))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment