HCoop
/
clinton
/
lisp-on-lines.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Drop usage of defaction
[clinton/lisp-on-lines.git]
/
src
/
standard-wrappers.lisp
diff --git
a/src/standard-wrappers.lisp
b/src/standard-wrappers.lisp
index
bdc975c
..
f54f1e6
100644
(file)
--- a/
src/standard-wrappers.lisp
+++ b/
src/standard-wrappers.lisp
@@
-31,7
+31,7
@@
:initarg :action
:initform nil :special t :accessor link-action)))
:initarg :action
:initform nil :special t :accessor link-action)))
-(def
action
call-action-with-component-and-object ((self component) action-id object)
+(def
method/cc
call-action-with-component-and-object ((self component) action-id object)
(funcall (ucw::find-action (ucw::context.current-frame *context*) action-id)
self
object))
(funcall (ucw::find-action (ucw::context.current-frame *context*) action-id)
self
object))