OSCL/closure-common
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

possible fix for allegro

Browse Source
This commit is contained in:
David Lichteblau
2008-05-17 21:27:23 +02:00
committed by David Lichteblau
parent 4ffb7dffe1
commit fc832df789
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ystream.lisp
View File

@ -83,7 +83,7 @@
;; OPTIMIZE ME ;; OPTIMIZE ME
;; ;;
(let ((tmp (make-rod 1))) (let ((tmp (make-rod 1)))
(setf (rune tmp 0) rune) (setf (elt tmp 0) rune)
(ystream-write-escapable-rod tmp ystream))) (ystream-write-escapable-rod tmp ystream)))
#-rune-is-character #-rune-is-character