From 88a1520cf4f30f52a0d2a65b6635290030466162 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jacek=20TeMPOraL=20Z=C5=82ydach?= <temporal.pl@gmail.com> Date: Sun, 14 May 2017 19:21:10 +0200 Subject: [PATCH] Cleanup in workarounds. --- clim/frames.lisp | 4 ++-- silica/db-box.lisp | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/clim/frames.lisp b/clim/frames.lisp index 28e6d6d8..6d58e6aa 100644 --- a/clim/frames.lisp +++ b/clim/frames.lisp @@ -1489,10 +1489,10 @@ button-press-event))) (defun find-frame-pane-of-type (frame type) - (prog1 (map-over-sheets #'(lambda (sheet) + (map-over-sheets #'(lambda (sheet) (when (typep sheet type) (return-from find-frame-pane-of-type sheet))) - (frame-top-level-sheet frame)))) + (frame-top-level-sheet frame))) (defmethod frame-standard-output ((frame standard-application-frame)) *standard-output* diff --git a/silica/db-box.lisp b/silica/db-box.lisp index ee10bca3..38ed260d 100644 --- a/silica/db-box.lisp +++ b/silica/db-box.lisp @@ -21,7 +21,7 @@ (defmethod initialize-instance :after ((pane box-pane) &key contents &allow-other-keys) (dolist (child contents) - (typecase child ;FIXME temporarily changed etypecase to typecase + (typecase child ;FIXME temporarily changed etypecase to typecase -- jacek.zlydach, 2017-05-14 (number) ((member :fill)) (pane (sheet-adopt-child pane child)) -- GitLab