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