Commit | Line | Data |
---|---|---|
1 | (in-package "CAIRO") | |
2 | ||
3 | (eval-when (:compile-toplevel :load-toplevel :execute) | |
4 | (defexport defoperator (name &optional clip-p) | |
5 | (if clip-p | |
6 | name | |
7 | (let ((tname (intern (format nil "IN-~A-P" name))) | |
8 | (ename (intern (format nil "~A-EXTENTS" name)))) | |
9 | (list name tname ename)))) | |
10 | ||
11 | (defexport defpath (name &rest args) | |
12 | (declare (ignore args)) | |
13 | (list name (intern (format nil "REL-~A" name))))) | |
14 | ||
15 | ||
16 | ;;; Autogenerating exported symbols | |
17 | (export-from-file #p"clg:cairo;cairo.lisp") | |
18 |