Changeset 4328 for trunk/j/src/org/armedbear/lisp/defclass.lisp

Timestamp:

10/12/03 16:15:30 (19 years ago)

Author:

piso

Message:

GENERIC-FUNCTION-DISCRIMINATING-FUNCTION is now implemented in GenericFunction?.java.

File:

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

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

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: defclass.lisp,v 1.15 2003-10-12 13:46:39 piso Exp $
+;;; $Id: defclass.lisp,v 1.16 2003-10-12 16:15:30 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -509 +509 @@
    (method-class              ; :accessor generic-function-method-class
     :initarg :method-class)
-   (discriminating-function)  ; :accessor generic-function-discriminating-function
+;;    (discriminating-function)  ; :accessor generic-function-discriminating-function
    (classes-to-emf-table      ; :accessor classes-to-emf-table
     :initform (make-hash-table :test #'equal))))
@@ -530 +530 @@
   (setf (slot-value gf 'methods) new-value))
 
-(defun generic-function-discriminating-function (gf)
-  (slot-value gf 'discriminating-function))
-(defun (setf generic-function-discriminating-function) (new-value gf)
-  (setf (slot-value gf 'discriminating-function) new-value))
+;; (defun generic-function-discriminating-function (gf)
+;;   (slot-value gf 'discriminating-function))
+;; (defun (setf generic-function-discriminating-function) (new-value gf)
+;;   (setf (slot-value gf 'discriminating-function) new-value))
+(defsetf generic-function-discriminating-function
+  %set-generic-function-discriminating-function)
 
 (defun generic-function-method-class (gf)