Show More
@@ -215,9 +215,9 b'' | |||||
215 | (for ((i from)) |
|
215 | (for ((i from)) | |
216 | ((< i to)) |
|
216 | ((< i to)) | |
217 | ((incf i step)) |
|
217 | ((incf i step)) | |
218 |
|
|
218 | (set-var name index :num i) | |
219 |
|
|
219 | (unless (await (funcall body)) | |
220 |
|
|
220 | (return-from qspfor)))) | |
221 |
|
221 | |||
222 | ;;; Variables |
|
222 | ;;; Variables | |
223 |
|
223 |
@@ -62,7 +62,7 b'' | |||||
62 | (defpsmacro trim (s) |
|
62 | (defpsmacro trim (s) | |
63 | `(chain ,s (trim))) |
|
63 | `(chain ,s (trim))) | |
64 |
|
64 | |||
65 | (defpsmacro replace (s from to) |
|
65 | (defpsmacro qspreplace (s from to) | |
66 | `(chain ,s (replace ,from ,to))) |
|
66 | `(chain ,s (replace ,from ,to))) | |
67 |
|
67 | |||
68 | (defpsmacro val (s) |
|
68 | (defpsmacro val (s) |
@@ -4,7 +4,6 b'' | |||||
4 | (defvar *app-name* "") |
|
4 | (defvar *app-name* "") | |
5 |
|
5 | |||
6 | (defun entry-point-no-args () |
|
6 | (defun entry-point-no-args () | |
7 | (format t "~A~%" uiop:*command-line-arguments*) |
|
|||
8 | (entry-point uiop:*command-line-arguments*)) |
|
7 | (entry-point uiop:*command-line-arguments*)) | |
9 |
|
8 | |||
10 | (defun entry-point (args) |
|
9 | (defun entry-point (args) |
@@ -462,7 +462,7 b'' | |||||
462 | (ucase t 1 1) |
|
462 | (ucase t 1 1) | |
463 | (lcase t 1 1) |
|
463 | (lcase t 1 1) | |
464 | (trim t 1 1) |
|
464 | (trim t 1 1) | |
465 |
(replace |
|
465 | (qspreplace t 2 3 "replace") | |
466 | (instr t 2 3) |
|
466 | (instr t 2 3) | |
467 | (isnum t 1 1) |
|
467 | (isnum t 1 1) | |
468 | (val t 1 1) |
|
468 | (val t 1 1) |
@@ -66,7 +66,7 b'' | |||||
66 | (if (equal form '(void)) |
|
66 | (if (equal form '(void)) | |
67 | nil |
|
67 | nil | |
68 | (funcall *old-return-result-of* tag form))) |
|
68 | (funcall *old-return-result-of* tag form))) | |
69 | (export 'void) |
|
69 | (cl:export 'void) | |
70 |
|
70 | |||
71 | ;;; Bitwise stuff |
|
71 | ;;; Bitwise stuff | |
72 | ;; No idea why these are not exported |
|
72 | ;; No idea why these are not exported |
General Comments 0
You need to be logged in to leave comments.
Login now