diff options
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) + |