From 3bb7b0d12a7ac4f4d13f11a4bec916d0a3418eaa Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Sat, 20 Jun 2009 12:22:03 +0000
Subject: [PATCH] Use a loop for %SP-BYTE-BLT for Unicode.  This makes display
 work. Not sure that hemlock is fully functional, but it seems to work now.

---
 hemlock/hacks.lisp | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/hemlock/hacks.lisp b/hemlock/hacks.lisp
index 882fc97c8..40fdf6f42 100644
--- a/hemlock/hacks.lisp
+++ b/hemlock/hacks.lisp
@@ -1,7 +1,13 @@
 (in-package "HI")
 
 (defun %sp-byte-blt (src start dest dstart end)
-  (%primitive byte-blt src start dest dstart end))
+  #-unicode
+  (%primitive byte-blt src start dest dstart end)
+  #+unicode
+  (loop for di of-type fixnum from dstart below end
+        for si of-type fixnum from start
+        do 
+        (setf (aref dest di) (aref src si))))
 
 (defun lisp::sap-to-fixnum (x) (sap-int x))
 (defun lisp::fixnum-to-sap (x) (int-sap x))
-- 
GitLab