From c7d11ab8351ff49a85deb172d5a72feffc709c98 Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Tue, 7 Feb 2006 17:04:40 +0000 Subject: [PATCH] Bug fix Organization: Straylight/Edgeware From: espen --- cairo/cairo.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/cairo/cairo.lisp b/cairo/cairo.lisp index 142a22d..5d6a5ad 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.2 2005-11-15 10:03:04 espen Exp $ +;; $Id: cairo.lisp,v 1.3 2006-02-07 17:04:40 espen Exp $ (in-package "CAIRO") @@ -52,7 +52,7 @@ (define-enum-type subpixel-order :default :rgb :bgr :vrgb :vbgr) (define-enum-type hint-style :default :none :slight :medium :full) (define-enum-type hint-metrics :default :off :on) - (defclass glyph (proxy) + (defclass glyph (struct) ((index :allocation :alien :initarg :index @@ -649,7 +649,7 @@ (defbinding %font-options-destroy () nil (location pointer)) (defmethod reference-foreign ((class (eql (find-class 'font-options))) location) - (%font-options-reference location)) + (%font-options-copy location)) (defmethod unreference-foreign ((class (eql (find-class 'font-options))) location) (%font-options-destroy location)) -- [mdw]