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 &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