From: David Vázquez <davazp@gmail.com>
Date: Tue, 18 Dec 2012 22:25:14 +0000 (+0100)
Subject: Remove duplicated ls-compile definition
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=b88e51178beb03271b59cfa329568a8db16e25c9;p=jscl.git

Remove duplicated ls-compile definition
---

diff --git a/lispstrack.lisp b/lispstrack.lisp
index b8cc906..7a0b9b8 100644
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -526,21 +526,6 @@
     ((integerp sexp) (integer-to-string sexp))
     ((stringp sexp) (concat "\"" sexp "\""))
     ((listp sexp)
-     (let ((sexp (ls-macroexpand-1 sexp env fenv)))
-       (if (listp sexp)
-           (let ((compiler-func (second (assoc (car sexp) *compilations*))))
-             (if compiler-func
-                 (apply compiler-func env fenv (cdr sexp))
-                 (compile-funcall (car sexp) (cdr sexp) env fenv)))
-           (ls-compile sexp env fenv))))))
-
-
-(defun ls-compile (sexp &optional env fenv)
-  (cond
-    ((symbolp sexp) (lookup-variable sexp env))
-    ((integerp sexp) (integer-to-string sexp))
-    ((stringp sexp) (concat "\"" sexp "\""))
-    ((listp sexp)
      (if (assoc (car sexp) *compilations*)
          (let ((comp (second (assoc (car sexp) *compilations*))))
            (apply comp env fenv (cdr sexp)))