diff options
Diffstat (limited to 'src/interp/lisplib.boot')
-rw-r--r-- | src/interp/lisplib.boot | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 1a3f911b..6347f423 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -278,7 +278,11 @@ setAutoLoadProperty(name) == -- abb := constructor? name REMPROP(name,'LOADED) SETF(SYMBOL_-FUNCTION name,mkAutoLoad(constructor? name, name)) - + +unloadOneConstructor(cnam,fn) == + REMPROP(cnam,'LOADED) + SETF(SYMBOL_-FUNCTION cnam,mkAutoLoad(fn, cnam)) + --% Compilation compileConstructorLib(l,op,editFlag,traceFlag) == |