;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;SOURCE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
                                       (user-homedir-pathname))))
  (when (probe-file quicklisp-init)
    (load quicklisp-init)))

(ql:quickload 'qt)

(defpackage :hello-qt
  (:use :cl :qt)
  (:export #:main))

(in-package :hello-qt)
(named-readtables:in-readtable :qt)

;;;;Hello Qt

(defun hello-qt()
    (let* ((app (make-qapplication))
           (label (#_new QLabel "<strong>Hello Qt!</strong>")))
        (#_setWindowTitle label "Hello, Qt!")
        (#_resize label 100 100)
        (#_show label)
        (unwind-protect
            (#_exec app)
        (#_hide label))))
(hello-qt)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;





;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;OUTPUT;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; compiling (HELLO-QT)

; file: /tmp/slimeNTckRm
; in: HELLO-QT
;     (HELLO-QT::HELLO-QT)
;
; caught COMMON-LISP:STYLE-WARNING:
;   undefined function: HELLO-QT
;
; compilation unit finished
;   Undefined function:
;     HELLO-QT
;   caught 1 STYLE-WARNING condition
; compiling (LET (#) ...)

; file: /tmp/slimeuX3rz8
; in:
;      LET ((QUICKLISP-INIT
;        (MERGE-PATHNAMES "quicklisp/setup.lisp" (USER-HOMEDIR-PATHNAME))))
;     ((HELLO-QT::QUICKLISP-INIT
;       (HELLO-QT::MERGE-PATHNAMES "quicklisp/setup.lisp"
;        (HELLO-QT::USER-HOMEDIR-PATHNAME))))
;
; caught COMMON-LISP:ERROR:
;   illegal function call

;     (HELLO-QT::PROBE-FILE HELLO-QT::QUICKLISP-INIT)
;
; note: deleting unreachable code

; file: /tmp/slimeuX3rz8
; in:
;      LET ((QUICKLISP-INIT
;        (MERGE-PATHNAMES "quicklisp/setup.lisp" (USER-HOMEDIR-PATHNAME))))
;     (HELLO-QT::LET
;      ((HELLO-QT::QUICKLISP-INIT
;        (HELLO-QT::MERGE-PATHNAMES "quicklisp/setup.lisp"
;         (HELLO-QT::USER-HOMEDIR-PATHNAME))))
;      (HELLO-QT::WHEN (HELLO-QT::PROBE-FILE HELLO-QT::QUICKLISP-INIT)
;       (HELLO-QT::LOAD HELLO-QT::QUICKLISP-INIT)))
;
; caught COMMON-LISP:STYLE-WARNING:
;   undefined function: LET

;     (HELLO-QT::LOAD HELLO-QT::QUICKLISP-INIT)
;
; caught COMMON-LISP:STYLE-WARNING:
;   undefined function: LOAD

;     (HELLO-QT::PROBE-FILE HELLO-QT::QUICKLISP-INIT)
;
; caught COMMON-LISP:STYLE-WARNING:
;   undefined function: PROBE-FILE
;
; caught COMMON-LISP:WARNING:
;   undefined variable: QUICKLISP-INIT

;     (HELLO-QT::WHEN (HELLO-QT::PROBE-FILE HELLO-QT::QUICKLISP-INIT)
;      (HELLO-QT::LOAD HELLO-QT::QUICKLISP-INIT))
;
; caught COMMON-LISP:STYLE-WARNING:
;   undefined function: WHEN
;
; compilation unit finished
;   Undefined functions:
;     LET LOAD PROBE-FILE WHEN
;   Undefined variable:
;     QUICKLISP-INIT
;   caught 1 ERROR condition
;   caught 1 WARNING condition
;   caught 4 STYLE-WARNING conditions
;   printed 1 note
; Evaluation aborted on #<UNBOUND-VARIABLE KJ {C94CC61}>.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;OUTPUT;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;