From d607a4eeab9801e41de60c90e24c3c1b5074ba2c Mon Sep 17 00:00:00 2001 From: Andrea Griffini Date: Sat, 4 May 2013 10:08:51 +0200 Subject: [PATCH] removed unused function --- src/read.lisp | 7 ------- 1 file changed, 7 deletions(-) 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)) -- 1.7.10.4