Show More
@@ -62,7 +62,7 b'' | |||
|
62 | 62 | (defpsmacro trim (s) |
|
63 | 63 | `(chain ,s (trim))) |
|
64 | 64 | |
|
65 | (defpsmacro replace (s from to) | |
|
65 | (defpsmacro qspreplace (s from to) | |
|
66 | 66 | `(chain ,s (replace ,from ,to))) |
|
67 | 67 | |
|
68 | 68 | (defpsmacro val (s) |
@@ -4,7 +4,6 b'' | |||
|
4 | 4 | (defvar *app-name* "") |
|
5 | 5 | |
|
6 | 6 | (defun entry-point-no-args () |
|
7 | (format t "~A~%" uiop:*command-line-arguments*) | |
|
8 | 7 | (entry-point uiop:*command-line-arguments*)) |
|
9 | 8 | |
|
10 | 9 | (defun entry-point (args) |
General Comments 0
You need to be logged in to leave comments.
Login now