diff --git a/hemlock/shell.lisp b/hemlock/shell.lisp index e8c84eb8274c6df9bc5c74052db08edaac6c5e6c..6f52d73f2d54d2945b41258514e13492c5f059c9 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."))