[armedbear-cvs] r11456 - trunk/j/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Dec 20 14:09:27 2008
New Revision: 11456

Log:
Remove superfluous IN-PACKAGE.
Move documentation from comment to document-position in DEFVAR and extend it.

Modified:
   trunk/j/src/org/armedbear/lisp/jvm.lisp

Modified: trunk/j/src/org/armedbear/lisp/jvm.lisp
==============================================================================
--- trunk/j/src/org/armedbear/lisp/jvm.lisp	(original)
+++ trunk/j/src/org/armedbear/lisp/jvm.lisp	Sat Dec 20 14:09:27 2008
@@ -29,8 +29,6 @@
 ;;; obligated to do so.  If you do not wish to do so, delete this
 ;;; exception statement from your version.
 
-(in-package "EXTENSIONS")
-
 (in-package "JVM")
 
 (export '(compile-defun *catch-errors* jvm-compile jvm-compile-package
@@ -280,8 +278,8 @@
         (t
          nil)))
 
-;; True for local functions defined with FLET or LABELS.
-(defvar *child-p* nil)
+(defvar *child-p* nil
+  "True for local functions created by FLET, LABELS and (NAMED-)LAMBDA")
 
 (defknown find-variable (symbol list) t)
 (defun find-variable (name variables)