Update of /project/cells/cvsroot/cell-cultures/cells/cells-test In directory common-lisp.net:/tmp/cvs-serv27567/cells/cells-test

Modified Files: cells-test.asd test.lisp Log Message: Re-port to Lispworks/win32 Date: Thu Oct 28 02:09:11 2004 Author: ktilton

Index: cell-cultures/cells/cells-test/cells-test.asd diff -u cell-cultures/cells/cells-test/cells-test.asd:1.3 cell-cultures/cells/cells-test/cells-test.asd:1.4 --- cell-cultures/cells/cells-test/cells-test.asd:1.3 Sun Jul 4 20:59:42 2004 +++ cell-cultures/cells/cells-test/cells-test.asd Thu Oct 28 02:09:10 2004 @@ -1,8 +1,5 @@ ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-

-(operate 'load-op :asdf-aclproj) -(use-package :asdf-aclproj) - #+(or allegro lispworks cmu mcl clisp cormanlispx sbcl scl)

(asdf:defsystem :cells-test @@ -14,7 +11,19 @@ :description "Cells Regression Test/Documentation" :long-description "Informatively-commented regression tests for Cells" :serial t - :components ((lpr-project-file "cells-test"))) + :depends-on (:utils-kt :cells) + :components ((:file "test") + (:file "hello-world") + (:file "internal-combustion") + (:file "boiler-examples") + (:file "person") + (:file "df-interference") + (:file "test-family") + (:file "test-kid-slotting") + (:file "lazy-propagation") + (:file "output-setf") + (:file "test-lazy") + (:file "synapse-testing")))

(defmethod perform :after ((op load-op) (system (eql (find-system :cells-test)))) (cells::cv-test))

Index: cell-cultures/cells/cells-test/test.lisp diff -u cell-cultures/cells/cells-test/test.lisp:1.2 cell-cultures/cells/cells-test/test.lisp:1.3 --- cell-cultures/cells/cells-test/test.lisp:1.2 Thu Jul 1 05:48:54 2004 +++ cell-cultures/cells/cells-test/test.lisp Thu Oct 28 02:09:11 2004 @@ -95,7 +95,7 @@ (defun dft () (let ();(*c-debug* t)) (cell-reset) - (df-test t) + (df-test) ))

(defun output-clear (slot-name)