[Sbcl-commits] CVS: sbcl/src/pcl compiler-support.lisp,1.8,1.9

[Alexey D. <ade...@us...>]

Update of /cvsroot/sbcl/sbcl/src/pcl
In directory sc8-pr-cvs1:/tmp/cvs-serv6208/src/pcl

Modified Files:
	compiler-support.lisp 
Log Message:
0.8.3.62:
        * Split CONTINUATION into CTRAN (control part) and LVAR (value
          part);
        ... remove :DELETED and :DELETED-BLOCK-START continuation
            kinds;
        ... remove bug reported by Paul Dietz on sbcl-devel
            2003-09-14.


Index: compiler-support.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/compiler-support.lisp,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- compiler-support.lisp	26 Aug 2003 17:46:57 -0000	1.8
+++ compiler-support.lisp	15 Sep 2003 09:21:39 -0000	1.9
@@ -38,7 +38,7 @@
   (movable foldable flushable explicit-check))
 
 (deftransform sb-pcl::pcl-instance-p ((object))
-  (let* ((otype (continuation-type object))
+  (let* ((otype (lvar-type object))
 	 (std-obj (specifier-type 'sb-pcl::std-object)))
     (cond
       ;; Flush tests whose result is known at compile time.