From c4bd77de4144a488eae2a8980ab029b08065d2ce Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 16 May 1991 00:24:38 +0000 Subject: [PATCH] If debug-info is < 1, then don't dump debug-args or function type. --- compiler/entry.lisp | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/compiler/entry.lisp b/compiler/entry.lisp index bafde3409..f750d9396 100644 --- a/compiler/entry.lisp +++ b/compiler/entry.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/entry.lisp,v 1.8 1991/02/20 14:57:16 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/entry.lisp,v 1.9 1991/05/16 00:24:38 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -68,7 +68,7 @@ ;;; (defun compute-entry-info (fun info) (declare (type clambda fun) (type entry-info info)) - (let ((block (node-block (lambda-bind fun))) + (let ((bind (lambda-bind fun)) (internal-fun (functional-entry-function fun))) (setf (entry-info-closure-p info) (not (null (environment-closure (lambda-environment fun))))) @@ -76,9 +76,10 @@ (setf (entry-info-name info) (let ((name (leaf-name internal-fun))) (or name - (component-name (block-component block))))) - (setf (entry-info-arguments info) (make-arg-names internal-fun)) - (setf (entry-info-type info) (type-specifier (leaf-type internal-fun)))) + (component-name (block-component (node-block bind)))))) + (when (policy bind (>= debug 1)) + (setf (entry-info-arguments info) (make-arg-names internal-fun)) + (setf (entry-info-type info) (type-specifier (leaf-type internal-fun))))) (undefined-value)) -- GitLab