--- /dev/null
+(in-package "CAIRO")
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (defexport defoperator (name &optional clip-p)
+ (if clip-p
+ name
+ (let ((tname (intern (format nil "IN~A-P" name)))
+ (ename (intern (format nil "~A-EXTENTS" name))))
+ (list name tname ename))))
+
+ (defexport defpath (name &rest args)
+ (declare (ignore args))
+ (list name (intern (format nil "REL-~A" name)))))
+
+
+;;; Autogenerating exported symbols
+(export-from-file #p"clg:cairo;cairo.lisp")
+
\ No newline at end of file