From 5bd7dddb550da6068bf09b1d7c493eab44a88f1e Mon Sep 17 00:00:00 2001 Message-Id: <5bd7dddb550da6068bf09b1d7c493eab44a88f1e.1718014734.git.mdw@distorted.org.uk> From: Mark Wooding Date: Tue, 15 Nov 2005 10:03:04 +0000 Subject: [PATCH] Small bug fix Organization: Straylight/Edgeware From: espen --- cairo/cairo.lisp | 4 ++-- cairo/export.lisp | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) 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)))) -- [mdw]