From fc832df789ae7bff3c5e26fa4d6a3128e8d7aeb3 Mon Sep 17 00:00:00 2001
From: David Lichteblau <david@lichteblau.com>
Date: Sat, 17 May 2008 21:27:23 +0200
Subject: [PATCH] possible fix for allegro

---
 ystream.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ystream.lisp b/ystream.lisp
index d28de4c..eafabdc 100644
--- a/ystream.lisp
+++ b/ystream.lisp
@@ -83,7 +83,7 @@
   ;; OPTIMIZE ME
   ;;
   (let ((tmp (make-rod 1)))
-    (setf (rune tmp 0) rune)
+    (setf (elt tmp 0) rune)
     (ystream-write-escapable-rod tmp ystream)))
 
 #-rune-is-character
-- 
2.11.4.GIT