X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fvector.lisp;h=6a000b4a57c565e7ad9319470ab89885647000f1;hb=f17e3d27d7ff599f9443d011d17017a2a858c81a;hp=f703f945b29274ffa908eae08c89b9af7e162b10;hpb=0223f43d5f199914ebceff12b6f4c60448369edd;p=sbcl.git

diff --git a/src/pcl/vector.lisp b/src/pcl/vector.lisp
index f703f94..6a000b4 100644
--- a/src/pcl/vector.lisp
+++ b/src/pcl/vector.lisp
@@ -198,7 +198,7 @@
 ;;; Check whether the binding of the named variable is modified in the
 ;;; method body.
 (defun parameter-modified-p (parameter-name env)
-  (let ((modified-variables (macroexpand '%parameter-binding-modified env)))
+  (let ((modified-variables (%macroexpand '%parameter-binding-modified env)))
     (memq parameter-name modified-variables)))
 
 (defun optimize-slot-value (form slots required-parameters env)