/[gcl]/gcl/lsp/module.lsp
ViewVC logotype

Diff of /gcl/lsp/module.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by camm, Wed Oct 9 03:46:33 2002 UTC revision 1.3 by camm, Tue Oct 15 14:51:51 2002 UTC
# Line 64  Line 64 
64      (structure (get symbol 'structure-documentation))      (structure (get symbol 'structure-documentation))
65      (type (get symbol 'type-documentation))      (type (get symbol 'type-documentation))
66      (setf (get symbol 'setf-documentation))      (setf (get symbol 'setf-documentation))
67  ;FIXME      (t
68      (t nil)))       (if (packagep symbol)
69  ;    (t (error "~S is an illegal documentation type." doc-type))))           (get (find-symbol (package-name symbol) :keyword) 'package-documentation)
70           (error "~S is an illegal documentation type." doc-type)))))
71    
72    
73  (defun find-documentation (body)  (defun find-documentation (body)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26