X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/c8ca09d949657cbf4bd98b179e1c2f9b5762db3f..88670beca060fc94190b30d4dc6ccb38dbe2fbcd:/reddit-example.lisp

diff --git a/reddit-example.lisp b/reddit-example.lisp
index 1efa49d..73821bc 100644
--- 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*))))