Commit a62ceed5 by Francois-Rene Rideau

Add test for modifying the current syntax in a ddo

parent 8b0376d1
......@@ -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)
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