Commit 9c81014f authored by Tobias C. Rittweiler's avatar Tobias C. Rittweiler

Fix READTABLE-NAME not print :CURRENT when we have a better name.

darcs-hash:20090828195554-f5546-9f1e2556b836f5078bad2cb9e4ddd4e0eb919435.gz
parent 9772a91f
......@@ -375,9 +375,10 @@ Returns T if successfull, NIL otherwise."
NAMED-READTABLE-DESIGNATOR or NIL."
(check-type named-readtable-designator named-readtable-designator)
(let ((read-table (ensure-readtable named-readtable-designator)))
(cond ((eq read-table *readtable*) :current)
(cond ((%readtable-name readtable))
((eq read-table *readtable*) :current)
((eq read-table *standard-readtable*) :standard)
(t (%readtable-name read-table)))))
(t nil))))
;;;;; Compiler macros
......
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