(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