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 -----------