From a46038b43738cd58838d3ee40888b7ba462bbe71 Mon Sep 17 00:00:00 2001 From: chiles <chiles> Date: Fri, 4 Oct 1991 12:01:46 +0000 Subject: [PATCH] Modified %SET-MODELINE-FIELD-FUNCTION to allow its function argument to be a symbol or function since the purpose is to FUNCALL the thing. Since the new system is up to spec on the disjointedness of functions, this needed to be fixed for usefulness. --- hemlock/window.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hemlock/window.lisp b/hemlock/window.lisp index 5bf2bb3cb..1324c7871 100644 --- a/hemlock/window.lisp +++ b/hemlock/window.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/window.lisp,v 1.2 1991/02/08 16:39:08 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/window.lisp,v 1.3 1991/10/04 12:01:46 chiles Exp $") ;;; ;;; ********************************************************************** ;;; @@ -193,7 +193,7 @@ (defun %set-modeline-field-function (ml-field function) (check-type ml-field modeline-field) - (check-type function function) + (check-type function (or symbol function)) (setf (modeline-field-%function ml-field) function) (dolist (b *buffer-list*) (when (buffer-modeline-field-p b ml-field) -- GitLab