Ignore:
Timestamp:
12/08/03 21:28:44 (18 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r5030 r5031  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: clos.lisp,v 1.16 2003-12-08 21:06:56 piso Exp $
     4;;; $Id: clos.lisp,v 1.17 2003-12-08 21:28:44 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    210210                     #'compute-slots)
    211211                 class))
     212  (let ((location 0))
     213    (dolist (slot (class-slots class))
     214      (when (instance-slot-p slot)
     215        (setf (slot-definition-location slot) location)
     216        (incf location))))
    212217  (setf (class-default-initargs class)
    213218        (compute-class-default-initargs class))
     
    362367  (let ((slot (find-slot-definition class slot-name)))
    363368    (if slot
    364         (let ((location (slot-definition-location slot)))
    365           (if location
    366               location
    367               (setf (slot-definition-location slot)
    368                     (position slot (remove-if-not #'instance-slot-p (class-slots class))))))
     369        (slot-definition-location slot)
    369370        nil)))
    370371
Note: See TracChangeset for help on using the changeset viewer.