Change aspect name

Author: yitzchak

src/lisp/kernel/cleavir/activate-clasp-readtables-for-eclector.lisp

@@ -52,11 +52,11 @@
 (defvar *clasp-normal-eclector-client* (make-instance 'clasp-non-cst-elector-client))
 
 (defmethod eclector.reader:state-value
-    ((client clasp-non-cst-elector-client) (aspect (eql :readtable)))
+    ((client clasp-non-cst-elector-client) (aspect (eql 'cl:*readtable*)))
   cl:*readtable*)
 
 (defmethod eclector.reader:call-with-state-value
-    ((client clasp-non-cst-elector-client) thunk (aspect (eql :readtable)) value)
+    ((client clasp-non-cst-elector-client) thunk (aspect (eql 'cl:*readtable*)) value)
   (let ((cl:*readtable* value))
     (funcall thunk)))