chiark - git - mdw - clg/blob - 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)