Bugfixes

src/api.ps

@@ -215,9 +215,9 b''
   (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
 

src/intrinsic-macros.lisp

@@ -62,7 +62,7 b''
 (defpsmacro trim (s)
   `(chain ,s (trim)))
 
-(defpsmacro replace (s from to)
+(defpsmacro qspreplace (s from to)
   `(chain ,s (replace ,from ,to)))
 
 (defpsmacro val (s)

src/main.lisp

@@ -4,7 +4,6 b''
 (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)

src/parser.lisp

@@ -462,7 +462,7 b''
   (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)

src/patches.lisp

@@ -66,7 +66,7 b''
   (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