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