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

Diff of /gcl/lsp/gcl_module.lsp

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

revision 1.4 by camm, Sat Jul 23 08:52:13 2005 UTC revision 1.5 by pfdietz, Sat Aug 27 00:11:18 2005 UTC
# Line 27  Line 27 
27    
28  (export '(*modules* provide require))  (export '(*modules* provide require))
29  (export 'documentation)  (export 'documentation)
30  (export '(variable function structure type setf))  (export '(variable function structure type setf compiler-macro))
31    
32  (in-package 'system)  (in-package 'system)
33    
# Line 67  Line 67 
67      (setf (get symbol 'setf-documentation))      (setf (get symbol 'setf-documentation))
68      (compiler-macro (get symbol 'compiler-macro-documentation))      (compiler-macro (get symbol 'compiler-macro-documentation))
69      (method-combination (get symbol 'method-combination-documentation))      (method-combination (get symbol 'method-combination-documentation))
70      (t      (otherwise
71       (if (packagep symbol)       (cond
72           (get (find-symbol (package-name symbol) :keyword) 'package-documentation)         ((packagep symbol)
73         (error "~S is an illegal documentation type." doc-type)))))          (get (find-symbol (package-name symbol) :keyword) 'package-documentation))
74           ((eql doc-type t) nil)
75           (t (error "~S is an illegal documentation type." doc-type))))))
76    
77    
78  (defun find-documentation (body)  (defun find-documentation (body)
# Line 83  Line 85 
85                       (eq (car form) 'declare))                       (eq (car form) 'declare))
86                  (find-documentation (cdr body))                  (find-documentation (cdr body))
87                  nil)))))                  nil)))))
   
   

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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