/[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.4.2.1 by pw, Sat Mar 23 18:50:52 2002 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.4.2.1

  ViewVC Help
Powered by ViewVC 1.1.5