From 5f9371f19ae17198175d48540f3b06f168e10760 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sat, 6 Jul 2013 01:58:31 +0200 Subject: [PATCH] Remove CONVERT* --- src/compiler.lisp | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) 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) -- 1.7.10.4