diff options
-rw-r--r-- | Core/clim-core/panes/stream-panes.lisp | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/Core/clim-core/panes/stream-panes.lisp b/Core/clim-core/panes/stream-panes.lisp index 368d4101..bb6cb8e2 100644 --- a/Core/clim-core/panes/stream-panes.lisp +++ b/Core/clim-core/panes/stream-panes.lisp @@ -81,13 +81,11 @@ t) (defun invoke-display-function (frame pane) - (let ((display-function (pane-display-function pane))) - (cond ((consp display-function) - (apply (car display-function) - frame pane (cdr display-function))) - (display-function - (funcall display-function frame pane)) - (t nil)) + (when-let ((display-function (pane-display-function pane))) + (if (consp display-function) + (apply (car display-function) + frame pane (cdr display-function)) + (funcall display-function frame pane)) (finish-output pane))) (defmethod spacing-value-to-device-units ((pane extended-output-stream) x) |