|
Last change
on this file was
15558,
checked in by Mark Evenson, 2 years ago
|
|
abcl-introspect: home symbols in ABCL-INTROSPECT/SYSTEM
Name exported symbols explictly as such.
Add packages.lisp unit to assist the eventual move all of
abcl-introspect.lisp as homed in ABCL-INTROSPECT/SYSTEM so we can
distinguish between the ABCL core functionality and that provided for
by ABCL-INTROSPECT. For now, we just define the dictionary necessary
for inspecting interpreted forms in this manner.
Use a local function for the one-off STACK-TO-LIST.
|
|
File size:
663 bytes
|
| Line | |
|---|
| 1 | (defpackage abcl-introspect/system |
|---|
| 2 | (:nicknames #:abcl-introspect/sys) |
|---|
| 3 | (:use :common-lisp) |
|---|
| 4 | (:export |
|---|
| 5 | #:*debugging-locals-p* |
|---|
| 6 | #:find-locals)) |
|---|
| 7 | |
|---|
| 8 | ;;; Import and externalize all external symbols of |
|---|
| 9 | ;;; ABCL-INTROSPECT/SYSTEM from the SYSTEM package. Following this |
|---|
| 10 | ;;; discipline will allow us to sanely determine what symbols |
|---|
| 11 | ;;; ABCL-INTROSPECT adds to SYSTEM. |
|---|
| 12 | ;;; |
|---|
| 13 | ;;; TODO: do this for the rest of abcl-introspect.lisp and |
|---|
| 14 | ;;; stacktrace.lisp |
|---|
| 15 | (eval-when (:compile-toplevel :load-toplevel) |
|---|
| 16 | (loop :for symbol :being :the :external-symbols :of :abcl-introspect/system |
|---|
| 17 | :doing |
|---|
| 18 | (import symbol :system) |
|---|
| 19 | (export symbol :system))) |
|---|
| 20 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
