Break circular dependency between top-level.lisp and inspect.lisp

by moving a few defvar forms.
parent 4241ca10
......@@ -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 #\-) "->")))
......
......@@ -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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment