From: David Vazquez <davazp@gmail.com>
Date: Sat, 16 Feb 2013 15:50:45 +0000 (+0000)
Subject: Remove unnecessary progn
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=1b5eb788311a9b30a134568cd7dca09bcc49a4ae;p=jscl.git

Remove unnecessary progn
---

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 269b80a..e62d0ef 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -2006,10 +2006,9 @@
          *builtins*))
 
 (defmacro define-builtin (name args &body body)
-  `(progn
-     (define-raw-builtin ,name ,args
-       (let ,(mapcar (lambda (arg) `(,arg (ls-compile ,arg))) args)
-         ,@body))))
+  `(define-raw-builtin ,name ,args
+     (let ,(mapcar (lambda (arg) `(,arg (ls-compile ,arg))) args)
+       ,@body)))
 
 ;;; DECLS is a list of (JSVARNAME TYPE LISPFORM) declarations.
 (defmacro type-check (decls &body body)