X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/5c9cc66aa5fa72f1edce094b9c3fe476705de040..1ed0a2c57d1624d098f180bff1c567960a9b1b36:/cairo/export.lisp?ds=sidebyside

diff --git a/cairo/export.lisp b/cairo/export.lisp
new file mode 100644
index 0000000..d3e084f
--- /dev/null
+++ b/cairo/export.lisp
@@ -0,0 +1,18 @@
+(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