src/package.lisp
Thu Jul 2 19:34:07 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* initial import
--- old-commonqt/src/package.lisp 1970-01-01 01:00:00.000000000 +0100
+++ new-commonqt/src/package.lisp 2014-10-30 07:09:38.000000000 +0100
@@ -0,0 +1,33 @@
+;; Remove the :qt nickname of :cl-smoke.qt to allow
+;; :cl-smoke.commonqt to use it.
+(eval-when (:load-toplevel :compile-toplevel)
+ (rename-package :cl-smoke.qt :cl-smoke.qt))
+
+(defpackage :cl-smoke.commonqt
+ (:use :cl :cxx-support :cffi)
+ (:nicknames :qt)
+ (:export #:new
+
+ #:qsignal
+ #:qslot
+
+ #:make-qapplication
+
+ #:qt-class
+
+ #:emit-signal
+ #:call-next-qmethod
+ #:primitive-value
+
+ #:uint
+ #:int))
+
+;; No named-readtables support; fake it.
+;;
+(defpackage :named-readtables
+ (:use :cl)
+ (:export #:in-readtable))
+
+(in-package :named-readtables)
+(defun in-readtable (name)
+ (declare (ignore name)))