From 2f60440d56a8a467b43b6a4a981e5e8c9544f2d5 Mon Sep 17 00:00:00 2001 From: espen Date: Tue, 15 Nov 2005 10:03:04 +0000 Subject: [PATCH] Small bug fix --- 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 ea493f4..142a22d 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 @@ (,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 @@ (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)))) -- 2.11.0