From 9c112be9b11b869e89e3dfcf20a32d76301826ee Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 4 Oct 1994 03:40:51 +0000
Subject: [PATCH] Fixed :format-string to be :format-control in recursive error
 handler.

---
 hemlock/macros.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hemlock/macros.lisp b/hemlock/macros.lisp
index 6f53164ce..a94dc2280 100644
--- a/hemlock/macros.lisp
+++ b/hemlock/macros.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/macros.lisp,v 1.4 1993/08/25 02:09:45 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/macros.lisp,v 1.5 1994/10/04 03:40:51 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -635,7 +635,7 @@
 			    (invoke-debugger
 			     (make-condition
 			      'simple-condition
-			      :format-string
+			      :format-control
 			      "Error in error handler; Hemlock broken.")))))
     (clear-echo-area)
     (clear-editor-input *editor-input*)
-- 
GitLab