Fix typo

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 4a0ff5c..e02f253 100644 (file)
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -1639,7 +1639,7 @@
                ;; us replace the list representation version of the
                ;; function with the compiled one.
                ;;
-               #+jscl (setf (binding-value macro-binding) compiled)
+               #+jscl (setf (binding-value b) compiled)
                #+common-lisp (setf (gethash b *macroexpander-cache*) compiled)
                (setq expander compiled))))
           expander)