Changeset 8636


Ignore:
Timestamp:
02/25/05 04:20:07 (16 years ago)
Author:
piso
Message:

DEFSTRUCT: copy slot description for included slots.

File:
1 edited

Legend:

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

    r8618 r8636  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: defstruct.lisp,v 1.62 2005-02-20 19:13:29 piso Exp $
     4;;; $Id: defstruct.lisp,v 1.63 2005-02-25 04:20:07 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    479479                   :format-arguments (list (car *dd-include*))))
    480480          (dolist (dsd (dd-slots dd))
     481            ;; MUST COPY SLOT DESCRIPTION!
     482            (setf dsd (copy-seq dsd))
    481483            (setf (dsd-index dsd) index)
    482484            (push dsd *dd-slots*)
Note: See TracChangeset for help on using the changeset viewer.