From: espen <espen>
Date: Tue, 15 Nov 2005 10:03:04 +0000 (+0000)
Subject: Small bug fix
X-Git-Tag: clg-0-92~118
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/5bd7dddb550da6068bf09b1d7c493eab44a88f1e?ds=inline

Small bug fix
---

diff --git a/cairo/cairo.lisp b/cairo/cairo.lisp
index acff762..8e7f7a2 100644
--- a/cairo/cairo.lisp
+++ b/cairo/cairo.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: cairo.lisp,v 1.1 2005/11/10 08:50:45 espen Exp $
+;; $Id: cairo.lisp,v 1.2 2005/11/15 10:03:04 espen Exp $
 
 (in-package "CAIRO")
 
@@ -339,7 +339,7 @@        (defun ,name (cr &optional preserve)
 	     (,pname cr)
 	   (,iname cr)))
        ,(unless clip-p
-	  (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))))
 	    `(progn
 	       (defbinding ,tname () boolean
diff --git a/cairo/export.lisp b/cairo/export.lisp
index d3e084f..4bfae5d 100644
--- a/cairo/export.lisp
+++ b/cairo/export.lisp
@@ -4,7 +4,7 @@ (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)))
+      (let ((tname (intern (format nil "IN-~A-P" name)))
 	    (ename (intern (format nil "~A-EXTENTS" name))))
 	(list name tname ename))))