(in-package :common-lisp-user) (defpackage "APP" (:use :clim :clim-lisp) (:export "APP-MAIN")) (in-package :app) (define-application-frame superapp ()   ()   (:pane (draw-text 'medium "BLA"))) (defun app-main () (run-frame-top-level (make-application-frame 'superapp)))   produces ; file: /home/igor/Documents/cl/pane.lisp ; in: DEFINE-APPLICATION-FRAME SUPERAPP ;     (CLIM:DRAW-TEXT 'CLIM:MEDIUM "BLA") ; ; caught STYLE-WARNING: ;   The function was called with two arguments, but wants at least three. ; ; compilation unit finished ;   caught 1 STYLE-WARNING condition T and there should be no arguments at all ... View more