From: David Vázquez Date: Thu, 29 Aug 2013 10:19:14 +0000 (+0200) Subject: Move documentation function to src/documentation.lisp X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;ds=sidebyside;h=6f605676eab61eec005692317b149a47115837de;p=jscl.git Move documentation function to src/documentation.lisp --- diff --git a/src/boot.lisp b/src/boot.lisp index 5f6bbca..856879f 100644 --- a/src/boot.lisp +++ b/src/boot.lisp @@ -419,17 +419,6 @@ (write-line (lambda-code (fdefinition function))) nil) -(defun documentation (x type) - "Return the documentation of X. TYPE must be the symbol VARIABLE or FUNCTION." - (ecase type - (function - (let ((func (fdefinition x))) - (oget func "docstring"))) - (variable - (unless (symbolp x) - (error "The type of documentation `~S' is not a symbol." type)) - (oget x "vardoc")))) - (defmacro multiple-value-bind (variables value-from &body body) `(multiple-value-call (lambda (&optional ,@variables &rest ,(gensym)) ,@body) diff --git a/src/documentation.lisp b/src/documentation.lisp index 5735e9e..89e3404 100644 --- a/src/documentation.lisp +++ b/src/documentation.lisp @@ -1,5 +1,18 @@ ;;; documentation.lisp --- Accessing DOCUMENTATION +;;; Documentation. +(defun documentation (x type) + "Return the documentation of X. TYPE must be the symbol VARIABLE or FUNCTION." + (ecase type + (function + (let ((func (fdefinition x))) + (oget func "docstring"))) + (variable + (unless (symbolp x) + (error "The type of documentation `~S' is not a symbol." type)) + (oget x "vardoc")))) + + ;;; APROPOS and friends (defun map-apropos-symbols (function string package external-only)