Commit 5b01a420 authored by Tobias C. Rittweiler's avatar Tobias C. Rittweiler

Fix typo from last READTABLE-NAME commit.

darcs-hash:20090828195933-f5546-2729b7f086680b66bcc0c78fbf91016bb78866d4.gz
parent 134e971d
......@@ -375,7 +375,7 @@ 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 ((%readtable-name readtable))
(cond ((%readtable-name read-table))
((eq read-table *readtable*) :current)
((eq read-table *standard-readtable*) :standard)
(t nil))))
......
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