[Openmcl-devel] Why is remhash being called here?

[Ron Garret]

Welcome to Clozure Common Lisp Version 1.9-dev-r15769M-trunk  (DarwinX8664)!
? (defun _$-reader (stream char)
  (unread-char char stream)
  (let ((*readtable* (copy-readtable nil)))
    (read stream)))
_$-READER
? (set-macro-character #\$ '_$-reader t)
T
? (trace remhash)
NIL
? '$x

0> Calling (REMHASH \$X #<HASH-TABLE :TEST EQ size 2/60 #x302000E27E1D>) 
<0 REMHASH returned T
\$X
? (eval (read-from-string "'$x"))
\$X