X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fenv.lisp;h=459f9a742d3cf858fdffdd01cfcbe8be26acc81f;hb=475c832b081651e66ad9446d4852c62086f5e740;hp=dec5e0b29e5f16bccd0e01890f90fca1cab95ffc;hpb=4aa82530da00c41e2751671ac75eda2d19a173a0;p=sbcl.git

diff --git a/src/pcl/env.lisp b/src/pcl/env.lisp
index dec5e0b..459f9a7 100644
--- a/src/pcl/env.lisp
+++ b/src/pcl/env.lisp
@@ -103,9 +103,9 @@
 
 (defun trace-method-internal (ofunction name options)
   (eval `(untrace ,name))
-  (setf (symbol-function name) ofunction)
+  (name-set-fdefinition name ofunction)
   (eval `(trace ,name ,@options))
-  (symbol-function name))
+  (name-get-fdefinition name))
 |#
 
 ;;;; MAKE-LOAD-FORM