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

Contents of /src/hemlock/hacks.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Fri Jul 13 14:53:08 1990 UTC (23 years, 9 months ago) by ram
Branch: MAIN
Initial revision
1 ram 1.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 %sp-find-character (string start end char)
7     (%primitive find-character string start end char))
8    
9     (defun %sp-find-character-with-attribute (a b c d e)
10     (%primitive find-character-with-attribute a b c d e))
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     (defparameter minimum-window-lines 2)
27     (defparameter minimum-window-columns 10)
28     (defparameter font-map-size 16)
29    
30     (defun reverse-video-hook-fun (&rest foo)
31     (declare (ignore foo)))

  ViewVC Help
Powered by ViewVC 1.1.5