From 1b5eb788311a9b30a134568cd7dca09bcc49a4ae Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Sat, 16 Feb 2013 15:50:45 +0000 Subject: [PATCH] Remove unnecessary progn --- ecmalisp.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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) -- 1.7.10.4