From 79bacfcdbda269823c2396f00bff621fd26e16f1 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 16 May 1991 16:39:09 +0000 Subject: [PATCH] Changed %DEFUN to pass a warning-function to ASSERT-DEFINITION-TYPE, which flames when an argument is assigned (preventing type use of the type assertion.) --- compiler/ir1tran.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index ffc2136f5..d2fd5078d 100644 --- a/compiler/ir1tran.lisp +++ b/compiler/ir1tran.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/ir1tran.lisp,v 1.45 1991/05/16 00:27:17 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.46 1991/05/16 16:39:09 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -3224,6 +3224,9 @@ (assert-definition-type fun save-type :error-function (if for-real #'compiler-warning #'compiler-note) + :warning-function (cond (function-info #'compiler-warning) + (for-real #'compiler-note) + (t nil)) :really-assert (and for-real (not (and function-info -- GitLab