[cl-store-cvs] CVS update: cl-store/clisp/fix-clisp.lisp - cl-store-cvs@common-lisp.net - mailman3.common-lisp.net

10 Nov 2004

Update of /project/cl-store/cvsroot/cl-store/clisp
In directory common-lisp.net:/tmp/cvs-serv7159/clisp
Modified Files:
    fix-clisp.lisp 
Log Message:
Changelog 2004-11-10
Date: Wed Nov 10 11:43:25 2004
Author: sross
Index: cl-store/clisp/fix-clisp.lisp
diff -u cl-store/clisp/fix-clisp.lisp:1.4 cl-store/clisp/fix-clisp.lisp:1.5

--- cl-store/clisp/fix-clisp.lisp:1.4	Mon Nov  1 15:30:32 2004
+++ cl-store/clisp/fix-clisp.lisp	Wed Nov 10 11:43:23 2004
@@ -65,4 +65,9 @@
                   (setf (slot-value clos::object ',x) clos::new-value))))
     (find-class class)))
+(defmethod generic-function-name ((gf generic-function))
+  (multiple-value-bind (l cp name) (function-lambda-expression gf)
+    (declare (ignore l cp))
+    name))
+
 ;; EOF

    