Changeset 5023


Ignore:
Timestamp:
12/08/03 14:41:21 (17 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r4894 r5023  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: clos.lisp,v 1.9 2003-11-25 06:41:04 asimon Exp $
     4;;; $Id: clos.lisp,v 1.10 2003-12-08 14:41:21 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    153153;;; Slot definition metaobjects
    154154
     155(defun slot-definition-name (slot)
     156  (getf slot ':name))
     157(defun (setf slot-definition-name) (new-value slot)
     158  (setf (getf* slot ':name) new-value))
     159
     160(defun slot-definition-initfunction (slot)
     161  (getf slot ':initfunction))
     162(defun (setf slot-definition-initfunction) (new-value slot)
     163  (setf (getf* slot ':initfunction) new-value))
     164
     165(defun slot-definition-initform (slot)
     166  (getf slot ':initform))
     167(defun (setf slot-definition-initform) (new-value slot)
     168  (setf (getf* slot ':initform) new-value))
     169
     170(defun slot-definition-initargs (slot)
     171  (getf slot ':initargs))
     172(defun (setf slot-definition-initargs) (new-value slot)
     173  (setf (getf* slot ':initargs) new-value))
     174
     175(defun slot-definition-readers (slot)
     176  (getf slot ':readers))
     177(defun (setf slot-definition-readers) (new-value slot)
     178  (setf (getf* slot ':readers) new-value))
     179
     180(defun slot-definition-writers (slot)
     181  (getf slot ':writers))
     182(defun (setf slot-definition-writers) (new-value slot)
     183  (setf (getf* slot ':writers) new-value))
     184
     185(defun slot-definition-allocation (slot)
     186  (getf slot ':allocation))
     187(defun (setf slot-definition-allocation) (new-value slot)
     188  (setf (getf* slot ':allocation) new-value))
     189
    155190(defun make-direct-slot-definition (&rest properties
    156191                                          &key name
     
    186221    (setf (getf* slot ':allocation) allocation)
    187222    slot))
    188 
    189 (defun slot-definition-name (slot)
    190   (getf slot ':name))
    191 (defun (setf slot-definition-name) (new-value slot)
    192   (setf (getf* slot ':name) new-value))
    193 
    194 (defun slot-definition-initfunction (slot)
    195   (getf slot ':initfunction))
    196 (defun (setf slot-definition-initfunction) (new-value slot)
    197   (setf (getf* slot ':initfunction) new-value))
    198 
    199 (defun slot-definition-initform (slot)
    200   (getf slot ':initform))
    201 (defun (setf slot-definition-initform) (new-value slot)
    202   (setf (getf* slot ':initform) new-value))
    203 
    204 (defun slot-definition-initargs (slot)
    205   (getf slot ':initargs))
    206 (defun (setf slot-definition-initargs) (new-value slot)
    207   (setf (getf* slot ':initargs) new-value))
    208 
    209 (defun slot-definition-readers (slot)
    210   (getf slot ':readers))
    211 (defun (setf slot-definition-readers) (new-value slot)
    212   (setf (getf* slot ':readers) new-value))
    213 
    214 (defun slot-definition-writers (slot)
    215   (getf slot ':writers))
    216 (defun (setf slot-definition-writers) (new-value slot)
    217   (setf (getf* slot ':writers) new-value))
    218 
    219 (defun slot-definition-allocation (slot)
    220   (getf slot ':allocation))
    221 (defun (setf slot-definition-allocation) (new-value slot)
    222   (setf (getf* slot ':allocation) new-value))
    223223
    224224;;; finalize-inheritance
Note: See TracChangeset for help on using the changeset viewer.