Skip to content

Instantly share code, notes, and snippets.

@lokedhs

lokedhs/foo.lisp

Created November 19, 2020 15:11
Show Gist options
  • Save lokedhs/a16bfe7994849d5b4e35b44ce6707c28 to your computer and use it in GitHub Desktop.
Save lokedhs/a16bfe7994849d5b4e35b44ce6707c28 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
foo.lisp
;;; Does not work
(let ((rec (clim:with-output-to-output-record (pane 'canvas-object-record-inner)
(draw-canvas-object pane obj))))
(clim:stream-add-output-record pane rec))
;;;; Works
(clim:with-new-output-record (pane 'canvas-object-record-inner)
(draw-canvas-object pane obj))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment