Changeset 3935

Timestamp:

09/20/03 18:22:10 (19 years ago)

Author:

piso

Message:

Call SYS::MAKE-STRUCTURE-CLASS.

File:

• trunk/j/src/org/armedbear/lisp/defstruct.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/defstruct.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: defstruct.lisp,v 1.18 2003-09-08 01:39:28 piso Exp $
+;;; $Id: defstruct.lisp,v 1.19 2003-09-20 18:22:10 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -121 +121 @@
                                 name-and-options))
     `(progn
+       (make-structure-class ',*ds-name*)
        ,@(define-constructor slots)
        ,@(define-predicate)