diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-11-15 23:53:41 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-11-15 23:53:41 +0000 |
| commit | afc7f65009d1bc682bc37bd96ddf5222ac37cc5b (patch) | |
| tree | 1cbf2a3e57ddb2ef9515cbca325f6604b7d860f7 /src/interp/compat.boot | |
| parent | e906f65eed9a56f414d8dea0716acc03ddc6c8f0 (diff) | |
| download | open-axiom-afc7f65009d1bc682bc37bd96ddf5222ac37cc5b.tar.gz | |
* interp/Makefile.pamphlet (OBJS): Remove cfuns. Include
hashcode.
* interp/cfuns.lisp: Delete.
Diffstat (limited to 'src/interp/compat.boot')
| -rw-r--r-- | src/interp/compat.boot | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/src/interp/compat.boot b/src/interp/compat.boot index e7dde94e..f6e4f08b 100644 --- a/src/interp/compat.boot +++ b/src/interp/compat.boot @@ -38,21 +38,6 @@ namespace BOOT -- some functions that may need to be changed on different lisp -- systems. --- tests if x is an identifier beginning with # - -isSharpVar x == - IDENTP x and SCHAR(SYMBOL_-NAME x,0) = char "#" - -isSharpVarWithNum x == - null isSharpVar x => nil - (n := QCSIZE(p := PNAME x)) < 2 => nil - ok := true - c := 0 - for i in 1..(n-1) while ok repeat - d := ELT(p,i) - ok := DIGITP d => c := 10*c + DIG2FIX d - if ok then c else nil - -- RREAD which takes erroval to return if key is missing rread(key,rstream,errorval) == if IDENTP key then key := PNAME key |