Skip to content
Snippets Groups Projects
Commit 3bb7b0d1 authored by rtoy's avatar rtoy
Browse files

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.
parent 90770941
No related branches found
No related tags found
No related merge requests found
(in-package "HI") (in-package "HI")
(defun %sp-byte-blt (src start dest dstart end) (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::sap-to-fixnum (x) (sap-int x))
(defun lisp::fixnum-to-sap (x) (int-sap x)) (defun lisp::fixnum-to-sap (x) (int-sap x))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment