From d0256f7a870da74b1b988743ffb69ab7ab361f25 Mon Sep 17 00:00:00 2001 From: pw <pw> Date: Thu, 12 Jul 2001 20:10:52 +0000 Subject: [PATCH] Changes requested by Paul Foley to support advanced command processing work. --- code/debug.lisp | 10 ++++++---- code/lispinit.lisp | 7 +++++-- 2 files changed, 11 insertions(+), 6 deletions(-) diff --git a/code/debug.lisp b/code/debug.lisp index 8cde4b73b..56ff1718b 100644 --- a/code/debug.lisp +++ b/code/debug.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.52 2001/02/22 20:28:51 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.53 2001/07/12 20:10:52 pw Exp $") ;;; ;;; ********************************************************************** ;;; @@ -802,9 +802,11 @@ See the CMU Common Lisp User's Manual for more information. (defun debug-eval-print (exp) (setq +++ ++ ++ + + - - exp) (let* ((values (multiple-value-list - (if (and (fboundp 'compile) *auto-eval-in-frame*) - (di:eval-in-frame *current-frame* -) - (eval -)))) + (cond ((and (fboundp 'cl::commandp)(funcall 'cl::commandp exp)) + (funcall 'cl::invoke-command-interactive exp)) + ((and (fboundp 'compile) *auto-eval-in-frame*) + (di:eval-in-frame *current-frame* -)) + (t (eval -))))) (*standard-output* *debug-io*)) (fresh-line) (if values (prin1 (car values))) diff --git a/code/lispinit.lisp b/code/lispinit.lisp index 18225b492..fde156949 100644 --- a/code/lispinit.lisp +++ b/code/lispinit.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.64 2001/07/08 17:41:41 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.65 2001/07/12 20:10:52 pw Exp $") ;;; ;;; ********************************************************************** ;;; @@ -543,7 +543,10 @@ "Evaluate FORM, returning whatever it returns but adjust ***, **, *, +++, ++, +, ///, //, /, and -." (setf - form) - (let ((results (multiple-value-list (eval form)))) + (let ((results (multiple-value-list + (if (and (fboundp 'commandp)(funcall 'commandp form)) + (funcall 'invoke-command-interactive form) + (eval form))))) (finish-standard-output-streams) (setf /// // // / -- GitLab