From 29a66e8b023d41800cb1def9f217caeaf3695256 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 25 Aug 1993 02:29:39 +0000 Subject: [PATCH] Typo. --- hemlock/shell.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hemlock/shell.lisp b/hemlock/shell.lisp index e8c84eb82..6f52d73f2 100644 --- a/hemlock/shell.lisp +++ b/hemlock/shell.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/shell.lisp,v 1.1.1.11 1993/08/25 02:10:35 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/shell.lisp,v 1.1.1.12 1993/08/25 02:29:39 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -234,7 +234,7 @@ (defun set-current-shell () (let ((old-buffer (value current-shell)) (first-old-shell (do-strings (var val *shell-names* nil) - (declare (ignore var)) + (declare (ignore val)) (return var)))) (when (and (not old-buffer) (not first-old-shell)) (editor-error "Nothing to set current shell to.")) -- GitLab