Bugfixes

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