[clg] / gtk / export.lisp

(in-package "GTK")

(eval-when (:compile-toplevel :load-toplevel :execute)
  (defexport define-style-color-accessor (name type)
    (declare (ignore type))
    name)

  (defexport define-style-gc-reader (name type)
    (declare (ignore type))
    name))

;;; Autogenerating exported symbols
(export-from-system)


;;; Now re-export some of the symbols from the CLG package
(with-export-handlers 
 (export-handler-makunbound 'defvar)
 (export-handler-makunbound 'deftype)
 
 (defexport defclass (class superclasses &optional slotdefs &rest options)
   (declare (ignore superclasses options))
   (export-defclass-form class slotdefs nil))

 (export-from-system "CLG"))
Commit	Line	Data
d0f6c948	1	(in-package "GTK")
d0f6c948	2
656c1401	3	(eval-when (:compile-toplevel :load-toplevel :execute)
656c1401	4	(defexport define-style-color-accessor (name type)
	5	(declare (ignore type))
	6	name)
	7
	8	(defexport define-style-gc-reader (name type)
	9	(declare (ignore type))
	10	name))
	11
d0f6c948	12	;;; Autogenerating exported symbols
e08e7057	13	(export-from-system)
656c1401	14
	15
	16	;;; Now re-export some of the symbols from the CLG package
	17	(with-export-handlers
	18	(export-handler-makunbound 'defvar)
	19	(export-handler-makunbound 'deftype)
	20
	21	(defexport defclass (class superclasses &optional slotdefs &rest options)
	22	(declare (ignore superclasses options))
	23	(export-defclass-form class slotdefs nil))
	24
e08e7057	25	(export-from-system "CLG"))