diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-07-04 00:42:29 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-07-04 00:42:29 +0000 |
| commit | da7377ed2063b1f80a451e2be1e0de1ae142b80b (patch) | |
| tree | 5dc7c87e93e512a65baa538e23b70473d11be1f0 /src/interp/g-util.boot | |
| parent | 80f914241a6f9a356f539e6451d88dfdade2e7ea (diff) | |
| download | open-axiom-da7377ed2063b1f80a451e2be1e0de1ae142b80b.tar.gz | |
* interp/Makefile.pamphlet (OBJS): Don't include nruntime.$(FASLEXT).
(nruntime.$(FASLEXT)): Remove rule.
* interp/g-util.boot (getShellEntry): Move from interp/nruntime.boot.
(setShellEntry): Likewise.
* interp/i-util.boot (devaluateDeeply): Likewise.
* interp/lisplib.boot (unloadOneConstructor): Likewise.
* interp/nrungo.boot (lookupDisplay): Likewise.
(isIntantiated): Likewise
* interp/package.boot (isCategoryPackageName): Likewise.
* interp/nruntime.boot: Remove.
Diffstat (limited to 'src/interp/g-util.boot')
| -rw-r--r-- | src/interp/g-util.boot | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index e82e8edb..0d52aee5 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -728,11 +728,21 @@ gensymInt g == for i in 2..#p-1 repeat n := 10 * n + charDigitVal p.i n -++ +++ Returns a newly allocated domain shell (a simple vector) of length `n'. newShell: %Short -> SIMPLE_-ARRAY newShell n == MAKE_-ARRAY(n,KEYWORD::INITIAL_-ELEMENT,nil) +++ fetchs the item in the nth entry of a domain shell. +getShellEntry: (%Shell,%Short) -> %Thing +getShellEntry(s,i) == + SVREF(s,i) + +++ sets the nth nth entry of a domain shell to an item. +setShellEntry: (%Shell,%Short,%Thing) -> %Thing +setShellEntry(s,i,t) == + SETF(SVREF(s,i),t) + -- Push into the BOOT package when invoked in batch mode. AxiomCore::$sysScope := '"BOOT" |