From: David Vázquez <davazp@gmail.com>
Date: Fri, 5 Jul 2013 23:58:31 +0000 (+0200)
Subject: Remove CONVERT*
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=5f9371f19ae17198175d48540f3b06f168e10760;p=jscl.git

Remove CONVERT*
---

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 96c4475..6e26947 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -1358,10 +1358,10 @@
            (return ,(convert (car (last sexps)) *multiple-value-p*)))
         `(progn ,@(mapcar #'convert sexps)))))
 
-(defun convert* (sexp &optional multiple-value-p)
+(defun convert (sexp &optional multiple-value-p)
   (multiple-value-bind (sexp expandedp) (!macroexpand-1 sexp)
     (when expandedp
-      (return-from convert* (convert sexp multiple-value-p)))
+      (return-from convert (convert sexp multiple-value-p)))
     ;; The expression has been macroexpanded. Now compile it!
     (let ((*multiple-value-p* multiple-value-p))
       (cond
@@ -1395,9 +1395,6 @@
         (t
          (error "How should I compile `~S'?" sexp))))))
 
-(defun convert (sexp &optional multiple-value-p)
-  (convert* sexp multiple-value-p))
-
 
 (defvar *compile-print-toplevels* nil)