git » jacl.git » commit d1f6915

Add %LOG

author Alan Dipert
2021-07-26 02:13:39 UTC
committer Alan Dipert
2021-07-26 02:13:39 UTC
parent 328ece510ad38675209bc844434daa390bfd3360

Add %LOG

boot.lisp +3 -0

diff --git a/boot.lisp b/boot.lisp
index 5ed5b9a..b04c674 100644
--- a/boot.lisp
+++ b/boot.lisp
@@ -95,6 +95,9 @@
 (defun %export (symbol &optional (package *package*))
   (\. package (|exportSymbol| (\. symbol |name|))))
 
+(defun %log (x)
+  (\. (%js "console") (|log| (%js "prstr(~{})" x))))
+
 (%export 'return-from)
 (defmacro return-from (block-name expr
                        &aux