From fa6ef8874b26893cd48ae101711bfd56630fa27d Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 13 Jul 1990 14:53:08 +0000
Subject: [PATCH] Initial revision

---
 hemlock/hacks.lisp | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 hemlock/hacks.lisp

diff --git a/hemlock/hacks.lisp b/hemlock/hacks.lisp
new file mode 100644
index 000000000..8f6743db0
--- /dev/null
+++ b/hemlock/hacks.lisp
@@ -0,0 +1,31 @@
+(in-package "HI")
+
+(defun %sp-byte-blt (src start dest dstart end)
+  (%primitive byte-blt src start dest dstart end))
+
+(defun %sp-find-character (string start end char)
+  (%primitive find-character string start end char))
+
+(defun %sp-find-character-with-attribute (a b c d e)
+  (%primitive find-character-with-attribute a b c d e))
+
+(defun lisp::sap-to-fixnum (x) (sap-int x))
+(defun lisp::fixnum-to-sap (x) (int-sap x))
+(defun lisp::%sp-make-fixnum (x) (%primitive make-fixnum x))
+(defun lisp::fast-char-upcase (x) (char-upcase x))
+
+;;; prepare-window-for-redisplay  --  Internal
+;;;
+;;;    Called by make-window to do whatever redisplay wants to set up
+;;; a new window.
+;;;
+(defun prepare-window-for-redisplay (window)
+  (setf (window-old-lines window) 0))
+
+(defparameter hunk-width-limit 256)
+(defparameter minimum-window-lines 2)
+(defparameter minimum-window-columns 10)
+(defparameter font-map-size 16)
+
+(defun reverse-video-hook-fun (&rest foo)
+  (declare (ignore foo)))
-- 
GitLab