genworks.lisp 1.73 KB
Newer Older
1
;;
2
;; Copyright 2002-2011 Genworks International 
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;

;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;; 
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; Affero General Public License for more details.
;; 
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file.  If not, see
;; <http://www.gnu.org/licenses/>.
;; 

(in-package :com.genworks.lisp)


(defun autoloaded-packages ()
Dave Cooper's avatar
Dave Cooper committed
26 27 28 29 30
  (append (list :win :windows :regexp) 
	  (remove-duplicates 
	   #-allegro nil
	   #+allegro (mapcar #'(lambda(pair) (intern (first pair) :keyword)) excl::*autoload-package-name-alist*)
	   )))
31 32


33 34

#-(or allegro lispworks sbcl cmu ccl) (error "Need implementation for function-documentation for the currently running Lisp.~%")
35 36
(defun function-documentation (function-symbol)
  #+allegro (get function-symbol 'excl::%fun-documentation)
37
  #+lispworks (get function-symbol 'system::%fun-documentation)
38
  #+(or cmu sbcl ccl) (documentation function-symbol 'function))
39

40
#-(or allegro lispworks sbcl cmu ccl) (error "Need implementation for variable-documentation for the currently running Lisp.~%")
41 42
(defun variable-documentation (function-symbol)
  #+allegro (get function-symbol 'excl::%var-documentation)
43
  #+lispworks (get function-symbol 'system::%var-documentation)
44
  #+(or cmu sbcl ccl) (documentation function-symbol 'variable))
45