Changeset 13996

Timestamp:

07/08/12 10:57:21 (11 years ago)

Author:

rschlatte

Message:

Small cleanup of atomic-defgeneric

File:

• trunk/abcl/src/org/armedbear/lisp/clos.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/clos.lisp

@@ -2799 +2799 @@
 Note: the user should really use the (:method ..) method description
 way of defining methods; there's not much use in atomically defining
-generic functions without providing sensible behaviour..."
+generic functions without providing sensible behaviour."
   (let ((temp-sym (gensym)))
     `(progn
        (defgeneric ,temp-sym ,@rest)
        (let ((gf (symbol-function ',temp-sym)))
-         (setf ,(if (and (consp function-name)
-                         (eq (car function-name) 'setf))
-                    `(get ',(second function-name) 'setf-function)
-                  `(symbol-function ',function-name)) gf)
+         ;; FIXME (rudi 2012-07-08): fset gets the source location info
+         ;; to charpos 23 always (but (setf fdefinition) leaves the
+         ;; outdated source position in place, which is even worse).
+         (fset ',function-name gf)
          (%set-generic-function-name gf ',function-name)
+         (fmakunbound ',temp-sym)
          gf))))