From 6f605676eab61eec005692317b149a47115837de Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Thu, 29 Aug 2013 12:19:14 +0200 Subject: [PATCH] Move documentation function to src/documentation.lisp --- src/boot.lisp | 11 ----------- src/documentation.lisp | 13 +++++++++++++ 2 files changed, 13 insertions(+), 11 deletions(-) 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) -- 1.7.10.4