[Sbcl-commits] CVS: sbcl/src/compiler/generic vm-ir2tran.lisp, 1.24, 1.25

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler/generic
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv15663/src/compiler/generic

Modified Files:
	vm-ir2tran.lisp 
Log Message:
1.0.29.14: implement SB-INTROSPECT:ALLOCATION-INFORMATION

* Allows users to gain insights into allocation behaviour.


Index: vm-ir2tran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/generic/vm-ir2tran.lisp,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- vm-ir2tran.lisp	17 Jun 2009 16:40:34 -0000	1.24
+++ vm-ir2tran.lisp	18 Jun 2009 08:49:30 -0000	1.25
@@ -266,6 +266,8 @@
 
 ;;; ...conses
 #!+stack-allocatable-fixed-objects
-(defoptimizer (cons stack-allocate-result) ((&rest args) node dx)
-  (declare (ignore node dx))
-  t)
+(progn
+  (defoptimizer (cons stack-allocate-result) ((&rest args) node dx)
+    t)
+  (defoptimizer (%make-complex stack-allocate-result) ((&rest args) node dx)
+    t))