(defpackage #:basic-test
  (:use :cl))

(in-package #:basic-test)
(in-package :common-lisp-user)
(ql:quickload 'mcclim)
(ql:quickload 'clim-examples)
;; (clim-demo:demodemo)


(defpackage "APP"
  (:use :clim :clim-lisp)
  (:export "APP-MAIN"))

(in-package :app)

(define-application-frame superapp ()
  ()
  (:panes
   (int :interactor :height 400 :width 600))
  (:layouts
   (default int)))

(defun app-main ()
  (run-frame-top-level (make-application-frame 'superapp)))