[noctool-cvs] CVS source

[jprewett]

Update of /project/noctool/cvsroot/source
In directory cl-net:/tmp/cvs-serv22551

Modified Files:
	tests.lisp 
Log Message:

minor fix-up to WITH-SLOT-ACCESSORS macro to *actually* make it more like WITH-SLOTS:
	- now you can specify the name of the variable along with the accessor :P



--- /project/noctool/cvsroot/source/tests.lisp	2009/01/23 18:04:39	1.15
+++ /project/noctool/cvsroot/source/tests.lisp	2009/01/23 18:09:25	1.16
@@ -42,7 +42,7 @@
 
 ;; syntactic sugar on top of with-accessors to make it more like with-slots
 (defmacro with-slot-accessors ((&rest accessors) instance &body body)
-  (let ((acc-list (mapcar (lambda (x) `(,x ,x)) accessors)))
+  (let ((acc-list (mapcar (lambda (x) (if (listp x) x `(,x ,x))) accessors)))
     `(with-accessors ,acc-list ,instance , at body)))
 
 (defmethod process ((monitor ping-monitor))