Re: Method and Generic Function internal names

[konstan@hermes.Berkeley.EDU (Joe Konstan)]

I tried your suggestion, and think I have a simpler version which works
(but may have unforseen future problems):


(defun get-setf-function-name (name)
  (or (gethash name *setf-function-names*)
      (setf (gethash name *setf-function-names*)
            (intern (let* ((pack (symbol-package name))
                           (pack-name (package-name pack))
                           (plain-name (symbol-name name))
                           (*package* (or pack *the-pcl-package*))
                           (*print-case* :upcase)
                           (*print-gensym* t))
                          (format nil "SETF ~A::~A"
                                  pack-name
                                  plain-name))
                    *the-pcl-package*))))



Thanks a lot

Joe Konstan