7104c6a0 |
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 |
5bd7dddb |
7 | (let ((tname (intern (format nil "IN-~A-P" name))) |
7104c6a0 |
8 | (ename (intern (format nil "~A-EXTENTS" name)))) |
9 | (list name tname ename)))) |
10 | |
1762d401 |
11 | (defexport defpath (name args &optional relative-p) |
7104c6a0 |
12 | (declare (ignore args)) |
1762d401 |
13 | (if (not relative-p) |
14 | (list name (intern (format nil "FAST-~A" name))) |
15 | (list |
16 | name |
17 | (intern (format nil "FAST-~A" name)) |
18 | (intern (format nil "REL-~A" name)) |
19 | (intern (format nil "FAST-REL-~A" name)))))) |
7104c6a0 |
20 | |
21 | |
22 | ;;; Autogenerating exported symbols |
23 | (export-from-file #p"clg:cairo;cairo.lisp") |
24 | |