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