From 2f3d7e8d477c465c63c85afea959ac608f2635d2 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Fri, 3 Aug 1990 10:11:22 +0000 Subject: [PATCH] Changed int-char to code-char, 'cause int-char no longer exists. --- hemlock/shell.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hemlock/shell.lisp b/hemlock/shell.lisp index fc3af3f0b..c08cb0630 100644 --- a/hemlock/shell.lisp +++ b/hemlock/shell.lisp @@ -353,7 +353,7 @@ (unless (hemlock-bound-p 'process :buffer (current-buffer)) (editor-error "Not in a process buffer.")) (let ((stream (ext:process-pty (value process)))) - (write-char (int-char 4) stream) + (write-char (code-char 4) stream) (force-output stream))) (defcommand "Interrupt Buffer Subprocess" (p) -- GitLab