Commit b80f87ba authored by Tobias C. Rittweiler's avatar Tobias C. Rittweiler

On Allegro, do not produce readtable names like KEYWORD.FOO for :FOO.

parent b1f56938
......@@ -69,12 +69,14 @@
(defun readtable-name-for-allegro (symbol)
(multiple-value-bind (kwd status)
(if (keywordp symbol)
(values symbol nil)
;; Kludge: ACL uses keywords to name readtables, we allow
;; arbitrary symbols.
(intern (format nil "~A.~A"
(package-name (symbol-package symbol))
(symbol-name symbol))
(prog1 kwd
(assert (or (not status) (get kwd 'named-readtable-designator)))
(setf (get kwd 'named-readtable-designator) t))))
......@@ -150,6 +152,7 @@
(values t char defn nil nil)))
(values nil nil nil nil nil)))))
;;; Written on ACL 8.0.
(defun %make-readtable-iterator (readtable)
(declare (optimize speed)) ; for TCO
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