removed unused function

diff --git a/src/read.lisp b/src/read.lisp
index d5a0c65..190ec79 100644 (file)
--- a/src/read.lisp
+++ b/src/read.lisp
@@ -179,13 +179,6 @@
         (setq result (concat result (string (char x i))))))
     result))
 
-(defun escape-all (x)
-  (let ((result ""))
-    (dotimes (i (length x))
-      (setq result (concat result "\\"))
-      (setq result (concat result (string (char x i)))))
-    result))
-
 (defun string-upcase-noescaped (s)
   (let ((result "")
         (last-escape nil))