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

Contents of /src/hemlock/hacks.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (show annotations) (vendor branch)
Fri Aug 3 10:18:33 1990 UTC (23 years, 8 months ago) by wlott
Changes since 1.1: +0 -6 lines
Nuked defuns of %sp-find-character{,-with-attribute} 'cause we have real
versions of them.
1 (in-package "HI")
2
3 (defun %sp-byte-blt (src start dest dstart end)
4 (%primitive byte-blt src start dest dstart end))
5
6 (defun lisp::sap-to-fixnum (x) (sap-int x))
7 (defun lisp::fixnum-to-sap (x) (int-sap x))
8 (defun lisp::%sp-make-fixnum (x) (%primitive make-fixnum x))
9 (defun lisp::fast-char-upcase (x) (char-upcase x))
10
11 ;;; prepare-window-for-redisplay -- Internal
12 ;;;
13 ;;; Called by make-window to do whatever redisplay wants to set up
14 ;;; a new window.
15 ;;;
16 (defun prepare-window-for-redisplay (window)
17 (setf (window-old-lines window) 0))
18
19 (defparameter hunk-width-limit 256)
20 (defparameter minimum-window-lines 2)
21 (defparameter minimum-window-columns 10)
22 (defparameter font-map-size 16)
23
24 (defun reverse-video-hook-fun (&rest foo)
25 (declare (ignore foo)))

  ViewVC Help
Powered by ViewVC 1.1.5