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." ...@@ -375,7 +375,7 @@ Returns T if successfull, NIL otherwise."
NAMED-READTABLE-DESIGNATOR or NIL." NAMED-READTABLE-DESIGNATOR or NIL."
(check-type named-readtable-designator named-readtable-designator) (check-type named-readtable-designator named-readtable-designator)
(let ((read-table (ensure-readtable 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 *readtable*) :current)
((eq read-table *standard-readtable*) :standard) ((eq read-table *standard-readtable*) :standard)
(t nil)))) (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