RosettaCodeData/Task/Window-creation/Common-Lisp/window-creation-3.lisp

(define-application-frame rc-window ()
  ()
  (:layouts (:default)))

(run-frame-top-level (make-application-frame 'rc-window))