From 79b466abf51869ae5dda8db7ecd105f17902a1cc Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 3 Jun 1990 18:38:26 +0000 Subject: [PATCH] Added debug and debug-internals packages. --- code/exports.lisp | 63 ++++++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 62 insertions(+), 1 deletion(-) diff --git a/code/exports.lisp b/code/exports.lisp index bcc9fd0d0..5cfd7d18b 100644 --- a/code/exports.lisp +++ b/code/exports.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.28 1990/06/03 16:42:44 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.29 1990/06/03 18:38:26 wlott Exp $ ;;; ;;; All the stuff necessary to export various symbols from various packages. ;;; @@ -82,6 +82,8 @@ (in-package "C") (in-package "ASSEMBLER" :nicknames '("ASSEM")) (in-package "BIGNUM") +(in-package "DEBUG") +(in-package "DEBUG-INTERNALS" :nicknames '("DI")) (in-package "LISP") @@ -552,3 +554,62 @@ bignum-logical-xor bignum-plus-p bignum-to-double-float bignum-to-single-float bignum-truncate bignum-type make-small-bignum multiply-bignums negate-bignum subtract-bignum)) + + + +(in-package "DEBUG") + +(export '(internal-debug *in-the-debugger* backtrace *flush-debug-errors* + *debug-print-level* *debug-print-length* *debug-prompt* + + var arg)) + + +(in-package "DEBUG-INTERNALS") + +(use-package "SYSTEM") +(use-package "EXT") + +;;; The compiler's debug-source structure is almost exactly what we want, so +;;; just get these symbols and export them. +;;; +(import '(c::debug-source-from c::debug-source-name c::debug-source-created + c::debug-source-compiled c::debug-source-start-positions + c::debug-source c::debug-source-p)) + +(export '(debug-variable-name debug-variable-package debug-variable-symbol + debug-variable-id debug-variable-value debug-variable-validity + debug-variable-valid-value debug-variable debug-variable-p + + top-frame frame-down frame-up frame-debug-function + frame-code-location eval-in-frame return-from-frame frame-catches + frame-number frame frame-p + + do-blocks debug-function-lambda-list debug-variable-info-available + do-debug-function-variables debug-function-symbol-variables + ambiguous-debug-variables preprocess-for-eval function-debug-function + debug-function-function debug-function-kind debug-function-name + debug-function debug-function-p + + do-debug-block-locations debug-block-successors debug-block + debug-block-p debug-block-elsewhere-p + + make-breakpoint activate-breakpoint deactivate-breakpoint + breakpoint-hook-function breakpoint-info breakpoint-kind + breakpoint-what breakpoint breakpoint-p + + code-location-debug-function code-location-debug-block + code-location-top-level-form-offset code-location-form-number + code-location-debug-source code-location code-location-p + unknown-code-location unknown-code-location-p + + debug-source-from debug-source-name debug-source-created + debug-source-compiled debug-source-root-number + debug-source-start-positions form-number-translations + source-path-context debug-source debug-source-p + + debug-condition no-debug-info no-debug-function-returns + no-debug-blocks lambda-list-unavailable + + debug-error unhandled-condition invalid-control-stack-pointer + unknown-code-location unknown-debug-variable invalid-value)) -- GitLab