From: David Vázquez <davazp@gmail.com>
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/?p=jscl.git;a=commitdiff_plain;h=6f605676eab61eec005692317b149a47115837de

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)