From c817edaa3670b3046efc30dc5ef6eca64431c4e0 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 17 Dec 1992 13:20:45 +0000
Subject: [PATCH] Fixed call_cmd to work when given a function pointer
 directly.

---
 lisp/monitor.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/monitor.c b/lisp/monitor.c
index c95de35e4..50224b8be 100644
--- a/lisp/monitor.c
+++ b/lisp/monitor.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/monitor.c,v 1.1 1992/07/28 20:15:06 wlott Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/monitor.c,v 1.2 1992/12/17 13:20:45 wlott Exp $ */
 
 #include <stdio.h>
 #include <sys/types.h>
@@ -249,6 +249,8 @@ static void call_cmd(char **ptr)
 	       thing);
         return;
     }
+    else
+	function = thing;
 
     numargs = 0;
     while (more_p(ptr)) {
-- 
GitLab