# HG changeset patch
# User <naryl+rhodecode@ave.maria.si>
# Date 2020-06-25 15:25:30
# Node ID cdf03d3ec4b49b60ccb587d12a1ab69bb2e49587
# Parent  4530ce7bb303a07acf2bf8c08f97617667565ba3

Bugfixes

diff --git a/src/api.ps b/src/api.ps
--- a/src/api.ps
+++ b/src/api.ps
@@ -215,9 +215,9 @@
   (for ((i from))
        ((< i to))
        ((incf i step))
-       (set-var name index :num i)
-       (unless (await (funcall body))
-         (return-from qspfor))))
+    (set-var name index :num i)
+    (unless (await (funcall body))
+      (return-from qspfor))))
 
 ;;; Variables
 
diff --git a/src/intrinsic-macros.lisp b/src/intrinsic-macros.lisp
--- a/src/intrinsic-macros.lisp
+++ b/src/intrinsic-macros.lisp
@@ -62,7 +62,7 @@
 (defpsmacro trim (s)
   `(chain ,s (trim)))
 
-(defpsmacro replace (s from to)
+(defpsmacro qspreplace (s from to)
   `(chain ,s (replace ,from ,to)))
 
 (defpsmacro val (s)
diff --git a/src/main.lisp b/src/main.lisp
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -4,7 +4,6 @@
 (defvar *app-name* "")
 
 (defun entry-point-no-args ()
-  (format t "~A~%" uiop:*command-line-arguments*)
   (entry-point uiop:*command-line-arguments*))
 
 (defun entry-point (args)
diff --git a/src/parser.lisp b/src/parser.lisp
--- a/src/parser.lisp
+++ b/src/parser.lisp
@@ -462,7 +462,7 @@
   (ucase    t   1 1)
   (lcase    t   1 1)
   (trim     t   1 1)
-  (replace  t   2 3)
+  (qspreplace t 2 3 "replace")
   (instr    t   2 3)
   (isnum    t   1 1)
   (val      t   1 1)
diff --git a/src/patches.lisp b/src/patches.lisp
--- a/src/patches.lisp
+++ b/src/patches.lisp
@@ -66,7 +66,7 @@
   (if (equal form '(void))
       nil
       (funcall *old-return-result-of* tag form)))
-(export 'void)
+(cl:export 'void)
 
 ;;; Bitwise stuff
 ;; No idea why these are not exported