diff --git a/hemlock/hacks.lisp b/hemlock/hacks.lisp index 882fc97c8766e1d5a9360a8e633a72ce72878ec4..40fdf6f4220e72e6e17d9bb1a92122c7f26da944 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))