Changeset 4334

Timestamp:

10/12/03 18:23:50 (19 years ago)

Author:

piso

Message:

Work in progress.

File:

• trunk/j/src/org/armedbear/lisp/defclass.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/defclass.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: defclass.lisp,v 1.16 2003-10-12 16:15:30 piso Exp $
+;;; $Id: defclass.lisp,v 1.17 2003-10-12 18:23:50 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -681 +681 @@
                  gf))
   (setf (fdefinition (generic-function-name gf))
-        (generic-function-discriminating-function gf))
+;;         (generic-function-discriminating-function gf))
+        gf)
   (clrhash (classes-to-emf-table gf))
   (values))