diff --git a/clim/frames.lisp b/clim/frames.lisp index 28e6d6d8a7f96ee53d9b773d958a1780584298c5..6d58e6aab2ec3458c502d78eed60c709daa5a8a4 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 ee10bca33c22012dfe72cca04c6f5f0dcba4e8ce..38ed260d8fc8500c6e372550ba431f76a6539c1c 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))