diff options
| author | Daniel Kochmański <daniel@turtleware.eu> | 2024-09-24 11:15:49 +0200 |
|---|---|---|
| committer | Daniel Kochmański <daniel@turtleware.eu> | 2024-09-24 11:29:20 +0200 |
| commit | 2d9d2a644a7015589bb5041001eb705bd7eba2b3 (patch) | |
| tree | 560c82a5ea047ae32468b34e160fe2f46f24b72c /Core | |
| parent | 61766d6084e39fcbc4b29cca0b2c83a8913b2b5d (diff) | |
Diffstat (limited to 'Core')
| -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) |