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

  • Ok_Specific_7749OPB
    link
    fedilink
    English
    arrow-up
    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)