From 5b01a4205d42d3ac164e5dd0f2cbe387ca846df8 Mon Sep 17 00:00:00 2001 From: Tobias C Rittweiler Date: Fri, 28 Aug 2009 14:59:33 -0500 Subject: [PATCH] Fix typo from last READTABLE-NAME commit. darcs-hash:20090828195933-f5546-2729b7f086680b66bcc0c78fbf91016bb78866d4.gz --- named-readtables/named-readtables.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/named-readtables/named-readtables.lisp b/named-readtables/named-readtables.lisp index 16fee64..92b19fd 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)))) -- GitLab