From: espen <espen>
Date: Thu, 10 Jan 2008 13:31:39 +0000 (+0000)
Subject: Bug fix
X-Git-Tag: clg-0-93~20
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/72251c9edb6e094e977394a94dab2f49cf6ba4bf

Bug fix
---

diff --git a/cairo/cairo.lisp b/cairo/cairo.lisp
index e8e153c..2f99566 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.19 2007/12/02 14:50:41 espen Exp $
+;; $Id: cairo.lisp,v 1.20 2008/01/10 13:31:39 espen Exp $
 
 (in-package "CAIRO")
 
@@ -676,7 +676,7 @@ (defbinding show-text () nil
 
 (defbinding show-glyphs () nil
   (cr context)
-  (glyphs (vector glyph))
+  (glyphs (vector (inlined glyph)))
   ((length glyphs) int))
 
 (defbinding font-extents (cr &optional (extents (make-instance 'font-extents))) nil