Changeset 4316


Ignore:
Timestamp:
10/11/03 19:49:14 (18 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r4315 r4316  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: defclass.lisp,v 1.11 2003-10-11 19:44:55 piso Exp $
     4;;; $Id: defclass.lisp,v 1.12 2003-10-11 19:49:14 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    467467                 direct-slots)))
    468468    (setf (class-direct-slots class) slots)
    469 ;;     (dolist (direct-slot slots)
    470 ;;       (dolist (reader (slot-definition-readers direct-slot))
    471 ;;         (add-reader-method
    472 ;;          class reader (slot-definition-name direct-slot)))
    473 ;;       (dolist (writer (slot-definition-writers direct-slot))
    474 ;;         (add-writer-method
    475 ;;          class writer (slot-definition-name direct-slot))))
     469    (dolist (direct-slot slots)
     470      (dolist (reader (slot-definition-readers direct-slot))
     471        (add-reader-method
     472         class reader (slot-definition-name direct-slot)))
     473      (dolist (writer (slot-definition-writers direct-slot))
     474        (add-writer-method
     475         class writer (slot-definition-name direct-slot))))
    476476    )
    477477  (funcall (if (eq (class-of class) (find-class 'standard-class))
     
    500500;;; Generic function metaobjects and standard-generic-function
    501501;;;
    502 
    503 ;; (defparameter the-defclass-standard-generic-function
    504 ;;   '(defclass standard-generic-function ()
    505 ;;     ((name :initarg :name)      ; :accessor generic-function-name
    506 ;;      (lambda-list               ; :accessor generic-function-lambda-list
    507 ;;       :initarg :lambda-list)
    508 ;;      (methods :initform ())     ; :accessor generic-function-methods
    509 ;;      (method-class              ; :accessor generic-function-method-class
    510 ;;       :initarg :method-class)
    511 ;;      (discriminating-function)  ; :accessor generic-function-
    512 ;;      ;    -discriminating-function
    513 ;;      (classes-to-emf-table      ; :accessor classes-to-emf-table
    514 ;;       :initform (make-hash-table :test #'equal)))))
    515502
    516503(defclass standard-generic-function ()
Note: See TracChangeset for help on using the changeset viewer.