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