projects
/
lifp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f590c55
)
run-action no-output mode
author
grue
<grue@mail.ru>
Mon, 13 Feb 2006 20:51:26 +0000
(20:51 +0000)
committer
grue
<grue@mail.ru>
Mon, 13 Feb 2006 20:51:26 +0000
(20:51 +0000)
darcs-hash:
1da46fb148a19439ed777d162b82a8c9740bfb01
if.lisp
patch
|
blob
|
history
diff --git
a/if.lisp
b/if.lisp
index 5664a60d9a1eddba65200111c3cf5a758c1b9481..f3403dc58c8721186d5bfb2252a57e525799c632 100644
(file)
--- a/
if.lisp
+++ b/
if.lisp
@@
-958,14
+958,15
@@
word in dictionary, add it."
;;React after?
\r
t)
\r
\r
;;React after?
\r
t)
\r
\r
-(defun run-action (action args &key (time 0))
\r
+(defun run-action (action args &key (time 0)
no-output
)
\r
"Run an action with a given args"
\r
(unless (listp args) (setf args (list args)))
\r
(setf *after* nil)
\r
(let ((*action* action)
\r
(*args* args)
\r
(*noun* (first args))
\r
"Run an action with a given args"
\r
(unless (listp args) (setf args (list args)))
\r
(setf *after* nil)
\r
(let ((*action* action)
\r
(*args* args)
\r
(*noun* (first args))
\r
- (*second* (second args)))
\r
+ (*second* (second args))
\r
+ (*no-output* no-output))
\r
(when *debug*
\r
(format t "[running action: ~a ~a]~%" *action* *args*))
\r
(when *meta* ;;Just do the darn thing!
\r
(when *debug*
\r
(format t "[running action: ~a ~a]~%" *action* *args*))
\r
(when *meta* ;;Just do the darn thing!
\r