Show More
@@ -86,20 +86,6 b'' | |||
|
86 | 86 | |
|
87 | 87 | ;;; 10dynamic |
|
88 | 88 | |
|
89 | (defpsmacro dynamic (block &rest args) | |
|
90 | `(progn | |
|
91 | (when (stringp ,block) | |
|
92 | (api:report-error "DYNAMIC can't evaluate arbitrary strings.\\nUse {braces} to create blocks for DYNAMIC.")) | |
|
93 | (api:with-call-args ,args nil | |
|
94 | (funcall ,block)))) | |
|
95 | ||
|
96 | (defpsmacro dyneval (block &rest args) | |
|
97 | `(progn | |
|
98 | (when (stringp ,block) | |
|
99 | (api:report-error "DYNEVAL can't evaluate arbitrary strings.\\nUse {braces} to create blocks for DYNEVAL.")) | |
|
100 | (api:with-call-args ,args t | |
|
101 | (funcall ,block)))) | |
|
102 | ||
|
103 | 89 | ;;; 11main |
|
104 | 90 | |
|
105 | 91 | (defpsmacro desc (s) |
@@ -116,6 +116,18 b'' | |||
|
116 | 116 | |
|
117 | 117 | ;;; 10dynamic |
|
118 | 118 | |
|
119 | (defun dynamic (block &rest args) | |
|
120 | (when (stringp block) | |
|
121 | (api:report-error "DYNAMIC can't evaluate arbitrary strings.\\nUse {braces} to create blocks for DYNAMIC.")) | |
|
122 | (api:with-call-args args nil | |
|
123 | (funcall block))) | |
|
124 | ||
|
125 | (defun dyneval (block &rest args) | |
|
126 | (when (stringp block) | |
|
127 | (api:report-error "DYNEVAL can't evaluate arbitrary strings.\\nUse {braces} to create blocks for DYNEVAL.")) | |
|
128 | (api:with-call-args args t | |
|
129 | (funcall block))) | |
|
130 | ||
|
119 | 131 | ;;; 11main |
|
120 | 132 | |
|
121 | 133 | (defun main-p (s) |
@@ -182,9 +194,10 b'' | |||
|
182 | 194 | (return-from selact (@ v :name))))) |
|
183 | 195 | |
|
184 | 196 | (defun curacts () |
|
185 |
(let ((acts ( |
|
|
197 | (let ((acts (chain *object (assign (create) *acts)))) | |
|
186 | 198 | (lambda () |
|
187 | 199 | (setf *acts acts) |
|
200 | (api:update-acts) | |
|
188 | 201 | (void)))) |
|
189 | 202 | |
|
190 | 203 | ;;; 15objs |
General Comments 0
You need to be logged in to leave comments.
Login now