Merge pull request #139 from Ferada/small-fixes

Fix MAP-FOR-IN/DO-SYMBOLS..., add TERPRI.

diff --git a/src/compiler/compiler.lisp b/src/compiler/compiler.lisp
index a2e5dee..73223aa 100644 (file)
--- a/src/compiler/compiler.lisp
+++ b/src/compiler/compiler.lisp
@@ -1252,7 +1252,7 @@
          (g (if (=== (typeof f) "function") f (get f "fvalue")))
          (o ,object))
     (for-in (key o)
-            (call g ,(if *multiple-value-p* '|values| '|pv|) 1 (get o "key")))
+            (call g ,(if *multiple-value-p* '|values| '|pv|) 1 (property o key)))
     (return ,(convert nil))))
 
 (define-compilation %js-vref (var)

diff --git a/src/print.lisp b/src/print.lisp
index 8cb36bd..66d8b0a 100644 (file)
--- a/src/print.lisp
+++ b/src/print.lisp
@@ -257,9 +257,13 @@
   (let ((*print-escape* nil))
     (write-to-string form)))
 
+(defun terpri ()
+  (write-char #\newline)
+  (values))
+
 (defun write-line (x)
   (write-string x)
-  (write-char #\newline)
+  (terpri)
   x)
 
 (defun warn (string)