Skip to content
Snippets Groups Projects
Commit db1d31b5 authored by ram's avatar ram
Browse files

Changed to deal with debug arguments being unspecified.

parent e1b4fa90
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -184,8 +184,8 @@
(object (if (= type vm:closure-header-type) (object (if (= type vm:closure-header-type)
(kernel:%closure-function object) (kernel:%closure-function object)
object))) object)))
(list (format nil "Function ~s.~%Argument List: ~a." object (list (format nil "Function ~s.~@[~%Argument List: ~a~]." object
(lisp::%function-header-arglist object) (kernel:%function-header-arglist object)
;; Defined from stuff used to be here. Someone took it out. ;; Defined from stuff used to be here. Someone took it out.
) )
t))) t)))
...@@ -236,4 +236,3 @@ ...@@ -236,4 +236,3 @@
(defun describe-atomic-parts (object) (defun describe-atomic-parts (object)
(list (format nil "Object is an atom.~%") nil object)) (list (format nil "Object is an atom.~%") nil object))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment