Changeset 5025


Ignore:
Timestamp:
12/08/03 14:47:20 (18 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r5023 r5025  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: clos.lisp,v 1.10 2003-12-08 14:41:21 piso Exp $
     4;;; $Id: clos.lisp,v 1.11 2003-12-08 14:47:20 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    198198                                          &allow-other-keys)
    199199  (let ((slot (copy-list properties))) ; Don't want to side effect &rest list
    200     (setf (getf* slot ':name) name)
    201     (setf (getf* slot ':initargs) initargs)
    202     (setf (getf* slot ':initform) initform)
    203     (setf (getf* slot ':initfunction) initfunction)
    204     (setf (getf* slot ':readers) readers)
    205     (setf (getf* slot ':writers) writers)
    206     (setf (getf* slot ':allocation) allocation)
     200    (setf (slot-definition-name slot) name)
     201    (setf (slot-definition-initargs slot) initargs)
     202    (setf (slot-definition-initform slot) initform)
     203    (setf (slot-definition-initfunction slot) initfunction)
     204    (setf (slot-definition-readers slot) readers)
     205    (setf (slot-definition-writers slot) writers)
     206    (setf (slot-definition-allocation slot) allocation)
    207207    slot))
    208208
     
    215215                                             &allow-other-keys)
    216216  (let ((slot (copy-list properties)))  ; Don't want to side effect &rest list
    217     (setf (getf* slot ':name) name)
    218     (setf (getf* slot ':initargs) initargs)
    219     (setf (getf* slot ':initform) initform)
    220     (setf (getf* slot ':initfunction) initfunction)
    221     (setf (getf* slot ':allocation) allocation)
     217    (setf (slot-definition-name slot) name)
     218    (setf (slot-definition-initargs slot) initargs)
     219    (setf (slot-definition-initform slot) initform)
     220    (setf (slot-definition-initfunction slot) initfunction)
     221    (setf (slot-definition-allocation slot) allocation)
    222222    slot))
    223223
Note: See TracChangeset for help on using the changeset viewer.