[cells-cvs] CVS update: cells/cells.lisp cells/cells.lpr cells/md-slot-value.lisp

[Kenny Tilton]

Update of /project/cells/cvsroot/cells
In directory common-lisp.net:/tmp/cvs-serv6383

Modified Files:
	cells.lisp cells.lpr md-slot-value.lisp 
Log Message:
resurrect cells-test; restore c-optimize somehow disabled at some point
Date: Fri Aug 26 16:28:01 2005
Author: ktilton

Index: cells/cells.lisp
diff -u cells/cells.lisp:1.4 cells/cells.lisp:1.5
--- cells/cells.lisp:1.4	Thu May 26 03:15:50 2005
+++ cells/cells.lisp	Fri Aug 26 16:28:00 2005
@@ -40,7 +40,6 @@
 (defun cell-reset ()
   (utils-kt-reset)
   (setf 
-   *c-debug* nil
    *c-prop-depth* 0
    *data-pulse-id* 0
    *data-pulses* nil


Index: cells/cells.lpr
diff -u cells/cells.lpr:1.4 cells/cells.lpr:1.5
--- cells/cells.lpr:1.4	Wed Jun 15 23:06:06 2005
+++ cells/cells.lpr	Fri Aug 26 16:28:00 2005
@@ -1,4 +1,4 @@
-;; -*- lisp-version: "7.0 [Windows] (May 6, 2005 8:25)"; cg: "1.54.2.17"; -*-
+;; -*- lisp-version: "7.0 [Windows] (Aug 5, 2005 12:23)"; cg: "1.54.2.17"; -*-
 
 (in-package :cg-user)
 


Index: cells/md-slot-value.lisp
diff -u cells/md-slot-value.lisp:1.9 cells/md-slot-value.lisp:1.10
--- cells/md-slot-value.lisp:1.9	Thu May 26 03:15:50 2005
+++ cells/md-slot-value.lisp	Fri Aug 26 16:28:01 2005
@@ -177,8 +177,8 @@
       (c-value-state c) :valid
       (c-state c) :awake)
 
-;;;     (unless (typep c 'c-stream) ;; c-stream needs to run out first stream at least
-;;;       (c-optimize-away?! c)) ;;; put optimize test here to avoid needless linking
+     (unless (typep c 'c-stream) ;; c-stream needs to run out first stream at least
+       (c-optimize-away?! c)) ;;; put optimize test here to avoid needless linking
      
      
      ; --- data flow propagation -----------