From: David Vazquez <davazp@gmail.com>
Date: Sun, 27 Jan 2013 18:21:17 +0000 (+0000)
Subject: Fix some newlines
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a05315ace4d219f4cbcfc4b162c505f418dc27b8;p=jscl.git

Fix some newlines
---

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 52327d8..ce807d5 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -1171,12 +1171,12 @@
         (if required-arguments
             (concat "checkArgsAtLeast("
                     (integer-to-string (1+ n-required-arguments))
-                    ");")
+                    ");" *newline*)
             "")
         (if (not rest-argument)
             (concat "checkArgsAtLeast("
                     (integer-to-string (+ 1 n-required-arguments n-optional-arguments))
-                    ");")
+                    ");" *newline*)
             "")
         ;; Optional arguments
         (if optional-arguments
@@ -1213,7 +1213,6 @@
             "")
         ;; Body
         (let ((*multiple-value-p* t)) (ls-compile-block body t)))
-       *newline*
        "})"))))