From 4261e36979fbc5a84df07dcb2d0ac0835d974fe0 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sun, 17 Jun 1990 12:25:30 +0000
Subject: [PATCH] Supply some legal initial variable values. Fixed optional arg
 to DELETE-CHAR to default to 1. Fixed some declarations to name the right
 variables.

---
 hemlock/tty-display.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/hemlock/tty-display.lisp b/hemlock/tty-display.lisp
index 29994d9b5..fd102e050 100644
--- a/hemlock/tty-display.lisp
+++ b/hemlock/tty-display.lisp
@@ -929,7 +929,7 @@
 	(device (device-hunk-device hunk)))
     (if upos
 	(let ((previous start)
-	      after-pos)
+	      (after-pos 0))
 	  (declare (fixnum previous after-pos))
 	  (loop (device-write-string string previous upos)
 		(setf after-pos (do ((i (1+ upos) (1+ i)))
@@ -1059,7 +1059,7 @@
     (when end-string (incf cost (length (the simple-string end-string))))
     (< cost insert-char-num)))
 
-(defun delete-char (hunk x y &optional n)
+(defun delete-char (hunk x y &optional (n 1))
   (declare (fixnum x y n))
   (update-cursor hunk x y)
   (let* ((device (device-hunk-device hunk))
@@ -1072,7 +1072,7 @@
     (when end-string (device-write-string end-string))))
 
 (defun worth-using-delete-mode (device delete-char-num clear-char-num)
-  (declare (fixnum num))
+  (declare (fixnum delete-char-num clear-char-num))
   (let ((init-string (tty-device-delete-init-string device))
 	(end-string (tty-device-delete-end-string device))
 	(delete-char-string (tty-device-delete-char-string device))
-- 
GitLab