From 7fba6c2113715c3d59c23d6c7d5ad61acd1acb57 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 24 Mar 1992 00:38:45 +0000
Subject: [PATCH] Fixed a syntax error exposed by the new anal defstruct.

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

diff --git a/hemlock/auto-save.lisp b/hemlock/auto-save.lisp
index 4ba9e136a..4c773c81e 100644
--- a/hemlock/auto-save.lisp
+++ b/hemlock/auto-save.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/auto-save.lisp,v 1.2 1991/02/08 16:32:35 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/auto-save.lisp,v 1.3 1992/03/24 00:38:45 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;; 
@@ -33,7 +33,7 @@
 	    (:print-function print-auto-save-state))
   "Per buffer state for auto-save"
   (buffer nil)				   ; buffer this state is for; for printing
-  (key-signature :type fixnum)		   ; buffer-signature at last keystroke
+  (key-signature 0 :type fixnum)	   ; buffer-signature at last keystroke
   (last-ckp-signature 0 :type fixnum)	   ; buffer-signature at last checkpoint
   (key-count 0 :type fixnum)		   ; # destructive keystrokes since ckp
   (pathname nil))			   ; pathname used to write last ckp file
-- 
GitLab