Changeset 5208


Ignore:
Timestamp:
12/19/03 19:42:55 (17 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r5207 r5208  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: clos.lisp,v 1.46 2003-12-19 19:26:04 piso Exp $
     4;;; $Id: clos.lisp,v 1.47 2003-12-19 19:42:55 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    14611461      (multiple-value-bind (init-key init-value foundp)
    14621462        (get-properties all-keys (slot-definition-initargs slot))
    1463         (declare (ignore init-key))
    14641463        (if foundp
    1465             (setf (slot-value instance slot-name) init-value)
    1466             (when (and (not (slot-boundp instance slot-name))
    1467                        (not (null (slot-definition-initfunction slot)))
     1464            (setf (std-slot-value instance slot-name) init-value)
     1465            (when (and (not (std-slot-boundp instance slot-name))
     1466                       (slot-definition-initfunction slot)
    14681467                       (or (eq slot-names t)
    14691468                           (member slot-name slot-names)))
    1470               (setf (slot-value instance slot-name)
     1469              (setf (std-slot-value instance slot-name)
    14711470                    (funcall (slot-definition-initfunction slot))))))))
    14721471  instance)
Note: See TracChangeset for help on using the changeset viewer.