Changeset 5039


Ignore:
Timestamp:
12/09/03 21:14:51 (17 years ago)
Author:
piso
Message:

Pass class to MAKE-DIRECT-SLOT-DEFINITION.

File:
1 edited

Legend:

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

    r5036 r5039  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: clos.lisp,v 1.19 2003-12-09 20:02:31 piso Exp $
     4;;; $Id: clos.lisp,v 1.20 2003-12-09 21:14:51 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    169169  location)
    170170
    171 (defun make-direct-slot-definition (&rest properties
     171(defun make-direct-slot-definition (class &rest properties
    172172                                          &key name
    173173                                          (initargs ())
     
    495495      (push class (class-direct-subclasses superclass))))
    496496  (let ((slots (mapcar #'(lambda (slot-properties)
    497                           (apply #'make-direct-slot-definition slot-properties))
     497                          (apply #'make-direct-slot-definition class slot-properties))
    498498                       direct-slots)))
    499499    (setf (class-direct-slots class) slots)
Note: See TracChangeset for help on using the changeset viewer.