diff options
author | dos-reis <gdr@axiomatics.org> | 2008-02-10 04:48:39 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-02-10 04:48:39 +0000 |
commit | 6b365f926f1f0430c34498392e1dddbff126bc48 (patch) | |
tree | bdbc548cea2b0968863d9695bbdfc1732b16c3c5 /src/interp/sys-utility.boot | |
parent | 06e82157a75ebb6f14dae6a76a9e3a2b883b2c7a (diff) | |
download | open-axiom-6b365f926f1f0430c34498392e1dddbff126bc48.tar.gz |
Add support for batch processing.
Diffstat (limited to 'src/interp/sys-utility.boot')
-rw-r--r-- | src/interp/sys-utility.boot | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index 727721f0..ab20480b 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -115,3 +115,20 @@ rassoc(x,y) == x = rest first y => first first y rassoc(x,rest y) +++ Reclaim unreachable objects. +RECLAIM() == +)if %hasFeature KEYWORD::GCL + SI::GBC true +)elseif %hasFeature KEYWORD::SBCL + SB_-EXT::GC() +)elseif %hasFeature KEYWORD::CLISP + EXT::GC() +)else + fatalError '"don't know how to collect" +)endif + +++ +makeAbsoluteFilename: %String -> %String +makeAbsoluteFilename name == + CONCATENATE("STRING",systemRootDirectory(),name) + |