Loading cruft.lisp +1 −1 Changes for cruft.lisp: 1 added line, 1 removed line. Original line number Diff line number Diff line Loading @@ -85,7 +85,7 @@ (define-cruft %find-readtable (name) "Return the readtable named NAME." #+ :allegro (excl:named-readtable (readtable-name-for-allegro name)) #+ :allegro (excl:named-readtable (readtable-name-for-allegro name) nil) #+ :common-lisp (values (gethash name *named-readtables* nil))) Loading Loading
cruft.lisp +1 −1 Changes for cruft.lisp: 1 added line, 1 removed line. Original line number Diff line number Diff line Loading @@ -85,7 +85,7 @@ (define-cruft %find-readtable (name) "Return the readtable named NAME." #+ :allegro (excl:named-readtable (readtable-name-for-allegro name)) #+ :allegro (excl:named-readtable (readtable-name-for-allegro name) nil) #+ :common-lisp (values (gethash name *named-readtables* nil))) Loading