Changeset 10311


Ignore:
Timestamp:
11/01/05 16:37:23 (16 years ago)
Author:
piso
Message:

COMPUTE-CLASS-DEFAULT-INITARGS

File:
1 edited

Legend:

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

    r9921 r10311  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: clos.lisp,v 1.186 2005-08-25 17:53:30 piso Exp $
     4;;; $Id: clos.lisp,v 1.187 2005-11-01 16:37:23 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    286286
    287287(defun compute-class-default-initargs (class)
    288   (mapappend #'class-direct-default-initargs
    289              (class-precedence-list class)))
     288  (let ((result ()))
     289    (dolist (c (class-precedence-list class) result)
     290      (let ((direct-default-initargs (class-direct-default-initargs c)))
     291        (when direct-default-initargs
     292          (setf result (append result direct-default-initargs)))))))
    290293
    291294;;; Class precedence lists
Note: See TracChangeset for help on using the changeset viewer.