Changeset 4328 for trunk/j/src/org/armedbear/lisp/defclass.lisp
- Timestamp:
- 10/12/03 16:15:30 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/defclass.lisp
r4323 r4328 2 2 ;;; 3 3 ;;; Copyright (C) 2003 Peter Graves 4 ;;; $Id: defclass.lisp,v 1.1 5 2003-10-12 13:46:39piso Exp $4 ;;; $Id: defclass.lisp,v 1.16 2003-10-12 16:15:30 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 509 509 (method-class ; :accessor generic-function-method-class 510 510 :initarg :method-class) 511 (discriminating-function) ; :accessor generic-function-discriminating-function511 ;; (discriminating-function) ; :accessor generic-function-discriminating-function 512 512 (classes-to-emf-table ; :accessor classes-to-emf-table 513 513 :initform (make-hash-table :test #'equal)))) … … 530 530 (setf (slot-value gf 'methods) new-value)) 531 531 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) 536 538 537 539 (defun generic-function-method-class (gf)
Note: See TracChangeset
for help on using the changeset viewer.