chiark - git - mdw - clg/blob - gtk/export.lisp

   1 (in-package "GTK")
   2
   3 (eval-when (:compile-toplevel :load-toplevel :execute)
   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
  12 ;;; Autogenerating exported symbols
  13 (export-from-system)
  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
  25  (export-from-system "CLG"))