chiark / gitweb /
Add a boundp-function slot, which is required by virtual slot getter.
[clg] / cairo / export.lisp
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 args &optional relative-p)
12     (declare (ignore args))
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))))))
20
21
22 ;;; Autogenerating exported symbols
23 (export-from-system)