diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-09-05 14:55:52 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-09-05 14:55:52 +0000 |
| commit | 9e27d1d1db7750bc072292998efabc65591ab0b9 (patch) | |
| tree | 29efc9f5424f30d7d6318139ea070dad34f01a7b /src/interp/lisplib.boot | |
| parent | 92a16e7a3931750c74a5f1fee679a59fb218667d (diff) | |
| download | open-axiom-9e27d1d1db7750bc072292998efabc65591ab0b9.tar.gz | |
* interp/define.boot: Remove $LISPLIB.
* interp/functor.boot: Likewise.
* interp/lisplib.boot: Likewise.
* interp/patches.lisp: Likewise.
* interp/sys-globals.boot: Likewise.
Diffstat (limited to 'src/interp/lisplib.boot')
| -rw-r--r-- | src/interp/lisplib.boot | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 72ac576d..a2841b70 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -225,8 +225,7 @@ putFileProperty(fn,ft,id,val) == lisplibWrite(prop,val,filename) == -- this may someday not write nil keys, but it will now - if $LISPLIB then - rwrite128(prop,val,filename) + rwrite128(prop,val,filename) rwrite128(key,value,stream) == rwrite(key,value,stream) @@ -236,9 +235,8 @@ evalAndRwriteLispForm(key,form) == rwriteLispForm(key,form) rwriteLispForm(key,form) == - if $LISPLIB then - rwrite( key,form,$libFile) - LAM_,FILEACTQ(key,form) + rwrite( key,form,$libFile) + LAM_,FILEACTQ(key,form) getLisplib(name,id) == -- this version does cache the returned value @@ -443,7 +441,6 @@ compileConstructorLib(l,op,editFlag,traceFlag) == compConLib1(fun,infileOrNil,outfileOrNil,auxOp,editFlag,traceFlag) == $PrettyPrint: local := 'T - $LISPLIB: local := 'T $lisplibPredicates: local := nil $lisplibModemapAlist: local := nil $lisplibOperationAlist: local := nil @@ -465,7 +462,6 @@ compConLib1(fun,infileOrNil,outfileOrNil,auxOp,editFlag,traceFlag) == compDefineLisplib(df:=["DEF",[op,:.],:.],m,e,prefix,fal,fn) == --fn= compDefineCategory1 OR compDefineFunctor1 sayMSG fillerSpaces(72,char "-") - $LISPLIB: local := 'T $op: local := op $lisplibPredicates: local := nil -- set by makePredicateBitVector $lisplibModemapAlist: local := nil |