[cl-store-cvs] CVS update: cl-store/clisp/fix-clisp.lisp

[Sean Ross]

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