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

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

darcs-hash:20090427150428-f5546-5346fddeb3934cd65a417d877e32ac0ce1ebe2e6.gz
parent b1f56938
......@@ -69,12 +69,14 @@
#+allegro
(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))
:keyword)
:keyword))
(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.
#+allegro
(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