Changeset 4328


Ignore:
Timestamp:
10/12/03 16:15:30 (19 years ago)
Author:
piso
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/defclass.lisp

    r4323 r4328  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: defclass.lisp,v 1.15 2003-10-12 13:46:39 piso Exp $
     4;;; $Id: defclass.lisp,v 1.16 2003-10-12 16:15:30 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    509509   (method-class              ; :accessor generic-function-method-class
    510510    :initarg :method-class)
    511    (discriminating-function)  ; :accessor generic-function-discriminating-function
     511;;    (discriminating-function)  ; :accessor generic-function-discriminating-function
    512512   (classes-to-emf-table      ; :accessor classes-to-emf-table
    513513    :initform (make-hash-table :test #'equal))))
     
    530530  (setf (slot-value gf 'methods) new-value))
    531531
    532 (defun generic-function-discriminating-function (gf)
    533   (slot-value gf 'discriminating-function))
    534 (defun (setf generic-function-discriminating-function) (new-value gf)
    535   (setf (slot-value gf 'discriminating-function) new-value))
     532;; (defun generic-function-discriminating-function (gf)
     533;;   (slot-value gf 'discriminating-function))
     534;; (defun (setf generic-function-discriminating-function) (new-value gf)
     535;;   (setf (slot-value gf 'discriminating-function) new-value))
     536(defsetf generic-function-discriminating-function
     537  %set-generic-function-discriminating-function)
    536538
    537539(defun generic-function-method-class (gf)
Note: See TracChangeset for help on using the changeset viewer.