[Sbcl-commits] CVS: sbcl/src/compiler ir1tran.lisp,1.109,1.110

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs1:/tmp/cvs-serv21905/src/compiler

Modified Files:
	ir1tran.lisp 
Log Message:
0.8.0.73:
	Restore type derivation for known/declared functions, even
	when their use is declared NOTINLINE.


Index: ir1tran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/ir1tran.lisp,v
retrieving revision 1.109
retrieving revision 1.110
diff -u -d -r1.109 -r1.110
--- ir1tran.lisp	12 Jun 2003 06:41:13 -0000	1.109
+++ ir1tran.lisp	16 Jun 2003 13:46:59 -0000	1.110
@@ -1017,7 +1017,8 @@
   (let ((res (make-defined-fun
 	      :%source-name (leaf-source-name var)
 	      :where-from (leaf-where-from var)
-	      :type (if (eq inlinep :notinline)
+	      :type (if (and (eq inlinep :notinline)
+			     (not (eq (leaf-where-from var) :declared)))
 			(specifier-type 'function)
 			(leaf-type var))
 	      :inlinep inlinep)))