blob: 1d4f949e0c235c164535a3d6f4ec058cc5f98525 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
(defpackage :cconv
(:use :common-lisp :ltk)
(:export #:main))
(in-package :cconv)
(defun main ()
(setf *debug-tk* nil)
(with-ltk ()
(wm-title "." "Feet to Meters")
()))
|