3 (eval-when (:compile-toplevel :load-toplevel :execute)
4 (defexport defoperator (name &optional clip-p)
7 (let ((tname (intern (format nil "IN-~A-P" name)))
8 (ename (intern (format nil "~A-EXTENTS" name))))
9 (list name tname ename))))
11 (defexport defpath (name &rest args)
12 (declare (ignore args))
13 (list name (intern (format nil "REL-~A" name)))))
16 ;;; Autogenerating exported symbols
17 (export-from-file #p"clg:cairo;cairo.lisp")