X-Git-Url: https://git.hcoop.net/clinton/parenscript.git/blobdiff_plain/7be02bedcc7fb0233815caca95aeb4f121b87876..1937c30a73058fff719dc060354326863448c4fc:/src/utils.lisp

diff --git a/src/utils.lisp b/src/utils.lisp
index f253f0e..d3b6ccc 100644
--- a/src/utils.lisp
+++ b/src/utils.lisp
@@ -25,13 +25,6 @@
       (when keep-separators (push (string (char string i)) res))
       (setf last (1+ i)))))
 
-(defun concat-constant-strings (list)
-  (reverse (reduce (lambda (optimized-list next-obj)
-                     (if (and (or (numberp next-obj) (stringp next-obj)) (stringp (car optimized-list)))
-                         (cons (format nil "~a~a" (car optimized-list) next-obj) (cdr optimized-list))
-                         (cons next-obj optimized-list)))
-                   (cons () list))))
-
 (defparameter *special-chars*
   '((#\! . "Bang")
     (#\? . "What")