~mdw
/
clg
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Now using non-consing WITH-CAIRO-CONTEXT
[clg]
/
cairo
/
export.lisp
diff --git
a/cairo/export.lisp
b/cairo/export.lisp
index
d3e084f
..
4bfae5d
100644
(file)
--- a/
cairo/export.lisp
+++ b/
cairo/export.lisp
@@
-4,7
+4,7
@@
(defexport defoperator (name &optional clip-p)
(if clip-p
name
- (let ((tname (intern (format nil "IN~A-P" name)))
+ (let ((tname (intern (format nil "IN
-
~A-P" name)))
(ename (intern (format nil "~A-EXTENTS" name))))
(list name tname ename))))