Changeset 4142


Ignore:
Timestamp:
09/30/03 09:57:33 (19 years ago)
Author:
piso
Message:

DEFSTRUCT: support optional docstring.

File:
1 edited

Legend:

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

    r4009 r4142  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: defstruct.lisp,v 1.21 2003-09-22 22:56:12 piso Exp $
     4;;; $Id: defstruct.lisp,v 1.22 2003-09-30 09:57:33 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    127127                                (list name-and-options)
    128128                                name-and-options))
     129    (when (stringp (car slots))
     130      (setf (documentation *ds-name* 'structure) (pop slots)))
    129131    `(progn
    130132       (make-structure-class ',*ds-name*)
Note: See TracChangeset for help on using the changeset viewer.