Changeset 5210


Ignore:
Timestamp:
12/19/03 20:26:53 (18 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r5208 r5210  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: clos.lisp,v 1.47 2003-12-19 19:42:55 piso Exp $
     4;;; $Id: clos.lisp,v 1.48 2003-12-19 20:26:53 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    437437      (slot-value-using-class (class-of object) object slot-name)))
    438438
    439 (defun (setf std-slot-value) (new-value instance slot-name)
     439(defun %set-std-slot-value (instance slot-name new-value)
    440440  (let ((location (slot-location (class-of instance) slot-name)))
    441441    (cond ((fixnump location)
     
    446446           (slot-missing (class-of instance) instance slot-name 'setf new-value))))
    447447  new-value)
     448
     449(defsetf std-slot-value %set-std-slot-value)
    448450
    449451(defun (setf slot-value) (new-value object slot-name)
     
    14531455  (apply #'shared-initialize instance () initargs))
    14541456
    1455 (defgeneric shared-initialize (instance slot-names &key))
    1456 
    1457 (defmethod shared-initialize ((instance standard-object)
    1458                               slot-names &rest all-keys)
     1457(defun std-shared-initialize (instance slot-names all-keys)
    14591458  (dolist (slot (class-slots (class-of instance)))
    14601459    (let ((slot-name (slot-definition-name slot)))
     
    14701469                    (funcall (slot-definition-initfunction slot))))))))
    14711470  instance)
     1471
     1472(defgeneric shared-initialize (instance slot-names &key))
     1473
     1474(defmethod shared-initialize ((instance standard-object)
     1475                              slot-names &rest all-keys)
     1476  (std-shared-initialize instance slot-names all-keys))
    14721477
    14731478;;; change-class
Note: See TracChangeset for help on using the changeset viewer.