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