0.pre7.126:

[sbcl.git] / src / pcl / env.lisp

diff --git a/src/pcl/env.lisp b/src/pcl/env.lisp
index 90c8f38..bf41126 100644 (file)
--- a/src/pcl/env.lisp
+++ b/src/pcl/env.lisp
@@ -28,7 +28,7 @@
 ;;; FIXME: This stuff isn't part of the ANSI spec, and isn't even
 ;;; exported from PCL, but it looks as though it might be useful,
 ;;; so I don't want to just delete it. Perhaps it should go in
-;;; a contrib/ directory eventually?
+;;; a "contrib" directory eventually?
 
 #|
 ;;; TRACE-METHOD and UNTRACE-METHOD accept method specs as arguments. A
@@ -103,9 +103,9 @@
 
 (defun trace-method-internal (ofunction name options)
   (eval `(untrace ,name))
-  (setf (symbol-function name) ofunction)
+  (setf (fdefinition name) ofunction)
   (eval `(trace ,name ,@options))
-  (symbol-function name))
+  (fdefinition name))
 |#
 \f
 ;;;; MAKE-LOAD-FORM
@@ -147,10 +147,10 @@
 
 (macrolet ((frob (&rest names)
             `(progn
-               ,@(mapcar #'(lambda (name)
-                             `(defmethod ,name ((class cl:class))
-                                (funcall #',name
-                                         (coerce-to-pcl-class class))))
+               ,@(mapcar (lambda (name)
+                           `(defmethod ,name ((class cl:class))
+                              (funcall #',name
+                                       (coerce-to-pcl-class class))))
                          names))))
   (frob
     class-direct-slots