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