From: Andrea Griffini <agriff@tin.it>
Date: Sat, 4 May 2013 08:08:51 +0000 (+0200)
Subject: removed unused function
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=d607a4eeab9801e41de60c90e24c3c1b5074ba2c;p=jscl.git

removed unused function
---

diff --git a/src/read.lisp b/src/read.lisp
index d5a0c65..190ec79 100644
--- 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))