From db1d31b5f43fe217074699bfcb0e1967bb8aac0e Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 22 May 1991 15:44:08 +0000 Subject: [PATCH] Changed to deal with debug arguments being unspecified. --- code/tty-inspect.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/code/tty-inspect.lisp b/code/tty-inspect.lisp index 64b8f0f6a..20acb104a 100644 --- a/code/tty-inspect.lisp +++ b/code/tty-inspect.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/tty-inspect.lisp,v 1.9 1991/05/15 16:38:30 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/tty-inspect.lisp,v 1.10 1991/05/22 15:44:08 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -184,8 +184,8 @@ (object (if (= type vm:closure-header-type) (kernel:%closure-function object) object))) - (list (format nil "Function ~s.~%Argument List: ~a." object - (lisp::%function-header-arglist object) + (list (format nil "Function ~s.~@[~%Argument List: ~a~]." object + (kernel:%function-header-arglist object) ;; Defined from stuff used to be here. Someone took it out. ) t))) @@ -236,4 +236,3 @@ (defun describe-atomic-parts (object) (list (format nil "Object is an atom.~%") nil object)) - -- GitLab