diff --git a/named-readtables/named-readtables.lisp b/named-readtables/named-readtables.lisp index 16fee640d449611c6536bf3fd03b23e800633a61..92b19fdc0f8438dfde188a360ddfc0dff0e493c9 100644 --- a/named-readtables/named-readtables.lisp +++ b/named-readtables/named-readtables.lisp @@ -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))))