Changeset 4141


Ignore:
Timestamp:
09/30/03 09:56:49 (19 years ago)
Author:
piso
Message:

DEFSTRUCT documentation.

File:
1 edited

Legend:

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

    r3492 r4141  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: documentation.lisp,v 1.5 2003-08-24 18:29:37 piso Exp $
     4;;; $Id: documentation.lisp,v 1.6 2003-09-30 09:56:49 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2525     (get symbol '%function-documentation))
    2626    (VARIABLE
    27      (get symbol '%variable-documentation))))
     27     (get symbol '%variable-documentation))
     28    (STRUCTURE
     29     (get symbol '%structure-documentation))))
    2830
    2931(defun %set-documentation (symbol type docstring)
     
    3234     (setf (get symbol '%function-documentation) docstring))
    3335    (VARIABLE
    34      (setf (get symbol '%variable-documentation) docstring))))
     36     (setf (get symbol '%variable-documentation) docstring))
     37    (STRUCTURE
     38     (setf (get symbol '%structure-documentation) docstring))))
    3539
    3640(defsetf documentation %set-documentation)
Note: See TracChangeset for help on using the changeset viewer.