[mcclim-devel] [bug] Asynchronous ID-CHOICE-ERROR -- CLX or McCLIM?

[Andy Hefner]

 (defmethod port-deallocate-pixmap ((port clx-port) pixmap)
+  (let ((medium (climi::pixmap-medium pixmap)))
+    (when medium
+      (with-slots (gc) medium
+        (when gc
+          (xlib:free-gcontext gc)))))
   (when (port-lookup-mirror port pixmap)
     (destroy-mirror port pixmap)))

Would it be more appropriate to move the subform starting with
(with-slots (gc) ..) to deallocate-medium (or possibly
degraft-medium), and one of those instead? Not a big deal, given
virtually nothing else in mcclim calls these when it probably should.