[armedbear-cvs] r14105 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Aug 17 01:50:58 2012
New Revision: 14105

Log:
Break circular dependency between top-level.lisp and inspect.lisp
by moving a few defvar forms.

Modified:
   trunk/abcl/src/org/armedbear/lisp/inspect.lisp
   trunk/abcl/src/org/armedbear/lisp/top-level.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/inspect.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/inspect.lisp	Fri Aug 17 01:48:50 2012	(r14104)
+++ trunk/abcl/src/org/armedbear/lisp/inspect.lisp	Fri Aug 17 01:50:58 2012	(r14105)
@@ -32,9 +32,15 @@
 (in-package #:system)
 
 (require 'clos)
-
 (require 'format)
 
+
+(defvar *inspect-break* nil)
+(defvar *inspected-object-stack* nil)
+(defvar *inspected-object* nil)
+
+
+
 (defun leader (name)
   (let ((size (max 0 (- 16 (length (string name))))))
     (concatenate 'string (make-string size :initial-element #\-) "->")))

Modified: trunk/abcl/src/org/armedbear/lisp/top-level.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/top-level.lisp	Fri Aug 17 01:48:50 2012	(r14104)
+++ trunk/abcl/src/org/armedbear/lisp/top-level.lisp	Fri Aug 17 01:50:58 2012	(r14105)
@@ -31,16 +31,9 @@
 
 ;;; Adapted from SB-ACLREPL (originally written by Kevin Rosenberg).
 
-(in-package #:system)
-
-(defvar *inspect-break* nil)
-
-(defvar *inspected-object-stack* nil)
-
-(defvar *inspected-object* nil)
-
 (in-package #:top-level)
 
+(require 'inspect)
 
 (defvar *null-cmd* (gensym))
 (defvar *handled-cmd* (gensym))