How to write a “hello world” ltk application using ccl lisp ?

  • Ok_Specific_7749OPBEnglish
    1·
    1 year ago

    Program below does not work with ccl.

    
load "~/quicklisp/setup.lisp")
(ql:quickload "ltk")
(in-package :ltk-user)
(declaim (optimize (speed 3) (safety 3)))
(defun main()
  (with-ltk ()
   (let ((b (make-instance 'button
                           :master nil
                           :text "Press Me"
                           :command (lambda ()
                                      (format t "Hello World!~&")))))
     (pack b))))
(main)