From: Raimon Grau <raimonster@gmail.com>
Date: Mon, 22 Apr 2013 23:28:42 +0000 (+0200)
Subject: Merge branch 'davazp-js-ffi' into js-ffi
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a282a1d63d7df4142f5891ab50bcc24007587154;p=jscl.git

Merge branch 'davazp-js-ffi' into js-ffi

Conflicts:
	ecmalisp.lisp
---

a282a1d63d7df4142f5891ab50bcc24007587154
diff --cc ecmalisp.lisp
index 1984aaa,16e54c8..85ca88d
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@@ -2738,6 -2765,12 +2765,12 @@@
                             (cdr sexp))))
           (join (remove-if #'null-or-empty-p subs))))
        (t
+        (when *compile-print-toplevels*
+          (let ((form-string (prin1-to-string sexp)))
+            (write-string "Compiling ")
+            (write-string (truncate-string form-string))
+            (write-line "...")))
 -       
++
         (let ((code (ls-compile sexp multiple-value-p)))
           (code (join-trailing (get-toplevel-compilations)
                                (code ";" *newline*))