[cells-cvs] CVS update: cell-cultures/cells/cells-test/cells-test.lpr cell-cultures/cells/cells-test/test.lisp

[Kenny Tilton]

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

Modified Files:
	cells-test.lpr test.lisp 
Log Message:
Cello cleanup, but mostly "removing" ffi-extender, which really lives on as the "hello-c" package
Date: Fri Apr  8 11:11:11 2005
Author: ktilton

Index: cell-cultures/cells/cells-test/cells-test.lpr
diff -u cell-cultures/cells/cells-test/cells-test.lpr:1.1 cell-cultures/cells/cells-test/cells-test.lpr:1.2
--- cell-cultures/cells/cells-test/cells-test.lpr:1.1	Sun Jul  4 20:59:42 2004
+++ cell-cultures/cells/cells-test/cells-test.lpr	Fri Apr  8 11:11:08 2005
@@ -1,11 +1,10 @@
-;; -*- lisp-version: "6.2 [Windows] (May 12, 2004 22:13)"; common-graphics: "1.389.2.105.2.14"; -*-
+;; -*- lisp-version: "7.0 [Windows] (Apr 6, 2005 17:03)"; cg: "1.54.2.17"; -*-
 
-(in-package :common-graphics-user)
+(in-package :cg-user)
 
-(defpackage :cells (:export))
+(defpackage :CELLS)
 
 (define-project :name :cells-test
-  :application-type (intern "Standard EXE" (find-package :keyword))
   :modules (list (make-instance 'module :name "test.lisp")
                  (make-instance 'module :name "hello-world.lisp")
                  (make-instance 'module :name
@@ -22,28 +21,20 @@
   :projects (list (make-instance 'project-module :name "..\\cells"))
   :libraries nil
   :distributed-files nil
+  :internally-loaded-files nil
   :project-package-name :cells
   :main-form nil
   :compilation-unit t
   :verbose nil
-  :runtime-modules '(:cg :drag-and-drop :lisp-widget
-                     :multi-picture-button :common-control
-                     :edit-in-place :outline :grid :group-box
-                     :header-control :progress-indicator-control
-                     :common-status-bar :tab-control :trackbar-control
-                     :up-down-control :dde :mci :carets :hotspots
-                     :menu-selection :choose-list :directory-list
-                     :color-dialog :find-dialog :font-dialog
-                     :string-dialog :yes-no-list-dialog
-                     :list-view-control :rich-edit :drawable :ole :www
-                     :aclwin302)
+  :runtime-modules nil
   :splash-file-module (make-instance 'build-module :name "")
   :icon-file-module (make-instance 'build-module :name "")
-  :include-flags '(:compiler :top-level :local-name-info)
+  :include-flags '(:local-name-info)
   :build-flags '(:allow-debug :purify)
   :autoload-warning t
   :full-recompile-for-runtime-conditionalizations nil
   :default-command-line-arguments "+cx +t \"Initializing\""
+  :additional-build-lisp-image-arguments '(:read-init-files nil)
   :old-space-size 256000
   :new-space-size 6144
   :runtime-build-option :standard


Index: cell-cultures/cells/cells-test/test.lisp
diff -u cell-cultures/cells/cells-test/test.lisp:1.3 cell-cultures/cells/cells-test/test.lisp:1.4
--- cell-cultures/cells/cells-test/test.lisp:1.3	Thu Oct 28 02:09:11 2004
+++ cell-cultures/cells/cells-test/test.lisp	Fri Apr  8 11:11:08 2005
@@ -80,16 +80,16 @@
     (cell-reset)
     ;(hello-world) ;; non-assertive
     (cv-test-engine)
-;;;    (cv-test-person)
-;;;    ;; should fail: (df-test nil)
-;;;    (df-test t)
-;;;    (cv-test-family)
-;;;    (cv-family-values)
-;;;    (cv-kid-slotting)
-;;;    (boiler-1)
-;;;    (boiler-2)
-;;;    (boiler-3) ;; non-assertive
-;;;    (boiler-4) ;; non-assertive
+    ;;;    (cv-test-person)
+    ;;;    ;; should fail: (df-test nil)
+    ;;;    (df-test t)
+    ;;;    (cv-test-family)
+    ;;;    (cv-family-values)
+    ;;;    (cv-kid-slotting)
+    ;;;    (boiler-1)
+    ;;;    (boiler-2)
+    ;;;    (boiler-3) ;; non-assertive
+    ;;;    (boiler-4) ;; non-assertive
     ))
 
 (defun dft ()