Drop usage of defaction

[clinton/lisp-on-lines.git] / reddit-example.lisp

diff --git a/reddit-example.lisp b/reddit-example.lisp
index 1efa49d..73821bc 100644 (file)
--- a/reddit-example.lisp
+++ b/reddit-example.lisp
@@ -43,7 +43,7 @@
 
 (defvar *links* (list))
 
-(defaction add-link ((self component))
+(defmethod/cc add-link ((self component))
   (let ((l (call-display (make-instance 'link)
                :type 'editor)))
     (when l (push l *links*))))