(
 ,q (use :cl)
    fwoar.-clisp  0,qdefpackage :clim-test-app
    (:use :clim :cli-userfwoar)).



*package*
,q (cl:use-package :clim-lisp)
0
*pack
,q (import cl:*package*)
0,'
0panes
(text (make-pane 'text-fi )) j$hs test-app ()
edi
(ql:quickload :cl
	      ,q (delete-package :clim-test-app)

	      ,q
	      (clim-demo:demodemo)) q