Changeset 10318


Ignore:
Timestamp:
11/01/05 17:50:50 (16 years ago)
Author:
piso
Message:

Moved COMPUTE-CLASS-DEFAULT-INITARGS to SlotClass?.java.

File:
1 edited

Legend:

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

    r10311 r10318  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: clos.lisp,v 1.187 2005-11-01 16:37:23 piso Exp $
     4;;; $Id: clos.lisp,v 1.188 2005-11-01 17:50:50 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    284284  (setf (class-default-initargs class) (compute-class-default-initargs class))
    285285  (setf (class-finalized-p class) t))
    286 
    287 (defun compute-class-default-initargs (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)))))))
    293286
    294287;;; Class precedence lists
Note: See TracChangeset for help on using the changeset viewer.