Index: gadgets.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/gadgets.lisp,v
retrieving revision 1.87
diff -r1.87 gadgets.lisp
2703c2703
<     (with-slots (x1 x2 y1 y2) record
---
>     (multiple-value-bind (x1 y1 x2 y2) (slot-value record 'coordinates)