(defpackage #:cxx-support
  (:use #:cl)
  (:export #:enum
           #:enum=
           #:enum-logand
           #:enum-logior
           #:value
           #:enum-type
           #:enum-case
           #:enum-cases
           #:enum-ecase))

(defpackage #:smoke
  (:use #:cl #:cffi #:trivial-garbage #:bordeaux-threads #:cxx-support
        #:alexandria)
  (:export #:call
           #:c-integer

           #:class-p
           #:class-size
           #:const-p
           #:id
           #:name
           #:pointer
           #:pointer-p
           #:size
           #:smoke
           #:stack-p
           #:type-foreign-keyword
           #:type-id
           #:type-size
           #:virtual-destructor-p

           #:convert-argument
           #:cxx-bool

           #:define-from-lisp-translation
           #:define-to-lisp-translation
           #:*to-lisp-translations*

           #:define-pointer-typedef
           #:define-smoke-module

           #:define-takes-ownership
           #:delete-object
           #:remove-object

           #:eval-startup

           #:get-smoke-variable-for-pointer
  	   #:init
           #:object-to-lisp

           #:make-auto-pointer
           #:make-cleanup-pointer

           #:make-smoke-classes
           #:make-smoke-type
           #:no-applicable-cxx-method
           #:smoke-call
           #:upcast

           #:smoke-standard-object
           #:smoke-type
           #:smoke-type=

           #+sbcl #:save-bundle))

(defpackage #:cxx
  (:use) ;; do not use #:cl
  (:export #:class
           
           #:= ;; These are defined in :qt since we need QGlobalSpace
           #:/=
           #:< #:<=
           #:> #:>=
           #:incf
           #:decf
           #:+
           #:-
           #:*
           #:/
           #:1+
           #:1-
           
           #:aref))