possible fix for allegro

2008-05-17 21:27:23 +02:00
parent 4ffb7dffe1
commit fc832df789
1 changed files with 1 additions and 1 deletions
--- 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