[accessible-request] Adding :initargs to handler

sshirokov · Feb 2, 2012 · 5030d09 · 5030d09
1 parent 7bbf56c
commit 5030d09
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/m2cl.lisp b/src/m2cl.lisp
@@ -7,8 +7,10 @@
 
 (defclass handler ()
   ((pull-socket
+    :initarg :pull
     :accessor handler-pull-socket)
    (pub-socket
+    :initarg :pub
     :accessor handler-pub-socket)))
 
 (defclass request ()