[clg] / cairo / export.lisp

(in-package "CAIRO")

(eval-when (:compile-toplevel :load-toplevel :execute)
  (defexport defoperator (name &optional clip-p)
    (if clip-p
	name
      (let ((tname (intern (format nil "IN-~A-P" name)))
	    (ename (intern (format nil "~A-EXTENTS" name))))
	(list name tname ename))))

  (defexport defpath (name args &optional relative-p)
    (declare (ignore args))
    (if (not relative-p)
	(list name (intern (format nil "FAST-~A" name)))
      (list 
       name 
       (intern (format nil "FAST-~A" name))
       (intern (format nil "REL-~A" name)) 
       (intern (format nil "FAST-REL-~A" name))))))


;;; Autogenerating exported symbols
(export-from-file #p"clg:cairo;cairo.lisp")
Commit	Line	Data
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