Changeset 4142 for trunk/j/src/org/armedbear/lisp/defstruct.lisp

Timestamp:

09/30/03 09:57:33 (19 years ago)

Author:

piso

Message:

DEFSTRUCT: support optional docstring.

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.21 2003-09-22 22:56:12 piso Exp $
+;;; $Id: defstruct.lisp,v 1.22 2003-09-30 09:57:33 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -127 +127 @@
                                 (list name-and-options)
                                 name-and-options))
+    (when (stringp (car slots))
+      (setf (documentation *ds-name* 'structure) (pop slots)))
     `(progn
        (make-structure-class ',*ds-name*)