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