Bug fix

diff --git a/cairo/cairo.lisp b/cairo/cairo.lisp
index e8e153c25979bed8b2a26ff8123260a056bb715f..2f9956670e7f7f90a2496bbd1167f0107e6e77ce 100644 (file)
--- 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.
 
 ;; 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")
 
 
 (in-package "CAIRO")
 


@@ -676,7 +676,7 @@ (defbinding show-text () nil
 
 (defbinding show-glyphs () nil
   (cr context)
 
 (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
   ((length glyphs) int))
 
 (defbinding font-extents (cr &optional (extents (make-instance 'font-extents))) nil