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