Show More
@@ -86,20 +86,6 b'' | |||||
86 |
|
86 | |||
87 | ;;; 10dynamic |
|
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 | ;;; 11main |
|
89 | ;;; 11main | |
104 |
|
90 | |||
105 | (defpsmacro desc (s) |
|
91 | (defpsmacro desc (s) |
@@ -116,6 +116,18 b'' | |||||
116 |
|
116 | |||
117 | ;;; 10dynamic |
|
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 | ;;; 11main |
|
131 | ;;; 11main | |
120 |
|
132 | |||
121 | (defun main-p (s) |
|
133 | (defun main-p (s) | |
@@ -182,9 +194,10 b'' | |||||
182 | (return-from selact (@ v :name))))) |
|
194 | (return-from selact (@ v :name))))) | |
183 |
|
195 | |||
184 | (defun curacts () |
|
196 | (defun curacts () | |
185 |
(let ((acts ( |
|
197 | (let ((acts (chain *object (assign (create) *acts)))) | |
186 | (lambda () |
|
198 | (lambda () | |
187 | (setf *acts acts) |
|
199 | (setf *acts acts) | |
|
200 | (api:update-acts) | |||
188 | (void)))) |
|
201 | (void)))) | |
189 |
|
202 | |||
190 | ;;; 15objs |
|
203 | ;;; 15objs |
General Comments 0
You need to be logged in to leave comments.
Login now