cl-rw

commit 557932e647ecb8d8a1ae16116d8e600d6c3292aa
parent 8bd9b3d70b01095348ca0439dec744b6f811f93f
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun, 16 Feb 2014 19:36:37 +0100

reorder construct deconstruct

Diffstat:
M
ui.lisp
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/ui.lisp b/ui.lisp
@@ -201,7 +201,7 @@
 (defun make-pool ()
   (let ((sessions (make-hash-table :test #'equal))
         (lock (rw.concurrency:make-lock "pool ~s")))
-    (lambda (create deconstruct construct)
+    (lambda (create construct deconstruct)
       (multiple-value-bind (sid aid *renv*) (funcall deconstruct)
         (let ((aid2 (parse36 aid))) ;; number=action|string=resource
           (when aid2
@@ -225,8 +225,8 @@
 
 (defparameter *pool* (make-pool))
 
-(defun draw (create deconstruct construct)
-  (funcall *pool* create deconstruct construct))
+(defun draw (create construct deconstruct)
+  (funcall *pool* create construct deconstruct))
 
 (defun link (draw click &key style (enabled t))
   (flet ((%draw ()