From c739544dd0234c340d398a735737af66715c16f9 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 23 Apr 1991 16:24:21 +0000 Subject: [PATCH] Don't print warnings about recursive calls to known functions with the RECURSIVE attributes. --- compiler/ltn.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/compiler/ltn.lisp b/compiler/ltn.lisp index 04fbb19c5..39d1a9e12 100644 --- a/compiler/ltn.lisp +++ b/compiler/ltn.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/ltn.lisp,v 1.23 1991/04/15 00:16:33 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ltn.lisp,v 1.24 1991/04/23 16:24:21 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -947,8 +947,10 @@ (leaf-name (environment-function (node-environment call)))) - (not (function-info-ir2-convert - (basic-combination-kind call)))) + (let ((info (basic-combination-kind call))) + (not (or (function-info-ir2-convert info) + (ir1-attributep (function-info-attributes info) + recursive))))) (let ((*compiler-error-context* call)) (compiler-warning "Recursive known function definition."))) (ltn-default-call call policy) -- GitLab