Plaster
New
List
Login
common-lisp
default
anonymous
2018.07.13 14:07:10
(defun simple-callback (wave &rest args) (format t "Wave ~S called with ~S~%" wave args) (values t args)) (define-wave foo (callback-wave) :callback 'simple-callback) (define-wave bar (callback-wave) :callback 'simple-callback) (define-wave baz (callback-wave) :callback 'simple-callback) (define-wave quux (callback-wave) :callback 'simple-callback) (define-flow foo (flow) () (foo -> bar baz) (bar baz -> quux)) * (execute-flow 'foo) Wave #<CALLBACK-WAVE FOO> called with NIL Wave #<CALLBACK-WAVE BAR> called with NIL Wave #<CALLBACK-WAVE BAZ> called with NIL Wave #<CALLBACK-WAVE QUUX> called with NIL ; No value
Raw
Annotate
Repaste
Edit