/[cmucl]/src/hemlock/tty-display.lisp
ViewVC logotype

Diff of /src/hemlock/tty-display.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by ram, Mon Oct 31 04:50:12 1994 UTC revision 1.5 by pw, Tue Mar 13 15:50:00 2001 UTC
# Line 29  Line 29 
29  (defvar *currently-selected-hunk* nil)  (defvar *currently-selected-hunk* nil)
30  (defvar *hunk-top-line*)  (defvar *hunk-top-line*)
31    
32  (proclaim '(fixnum *hunk-top-line*))  (declaim (fixnum *hunk-top-line*))
33    
34  (eval-when (compile eval)  (eval-when (compile eval)
35  (defmacro select-hunk (hunk)  (defmacro select-hunk (hunk)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

  ViewVC Help
Powered by ViewVC 1.1.5