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