/[cmucl]/src/hemlock/hacks.lisp
ViewVC logotype

Contents of /src/hemlock/hacks.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (show annotations)
Sat Jun 20 12:22:03 2009 UTC (4 years, 10 months ago) by rtoy
Branch: MAIN
Changes since 1.3: +7 -1 lines
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.
1 (in-package "HI")
2
3 (defun %sp-byte-blt (src start dest dstart end)
4 #-unicode
5 (%primitive byte-blt src start dest dstart end)
6 #+unicode
7 (loop for di of-type fixnum from dstart below end
8 for si of-type fixnum from start
9 do
10 (setf (aref dest di) (aref src si))))
11
12 (defun lisp::sap-to-fixnum (x) (sap-int x))
13 (defun lisp::fixnum-to-sap (x) (int-sap x))
14 (defun lisp::%sp-make-fixnum (x) (%primitive make-fixnum x))
15 (defun lisp::fast-char-upcase (x) (char-upcase x))
16
17 ;;; prepare-window-for-redisplay -- Internal
18 ;;;
19 ;;; Called by make-window to do whatever redisplay wants to set up
20 ;;; a new window.
21 ;;;
22 (defun prepare-window-for-redisplay (window)
23 (setf (window-old-lines window) 0))
24
25 (defparameter hunk-width-limit 256)
26
27 (defun reverse-video-hook-fun (&rest foo)
28 (declare (ignore foo)))

  ViewVC Help
Powered by ViewVC 1.1.5