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