From ktilton at common-lisp.net Sat Jun 26 02:50:34 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Fri, 25 Jun 2004 19:50:34 -0700 Subject: [cells-cvs] CVS update: Module imported: Test Message-ID: Update of /project/cells/cvsroot/Test In directory common-lisp.net:/tmp/cvs-serv23171 Log Message: Status: Vendor Tag: tcvs-vendor Release Tags: tcvs-release No conflicts created by this import Date: Fri Jun 25 19:50:34 2004 Author: ktilton New module Test added From ktilton at common-lisp.net Sat Jun 26 02:55:52 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Fri, 25 Jun 2004 19:55:52 -0700 Subject: [cells-cvs] CVS update: Test/TEST.BMP Test/TEST.GIF Test/TEST.JPG Test/cells.asd Test/cells.fasl Test/cells.lisp Test/cells.lpr Message-ID: Update of /project/cells/cvsroot/Test In directory common-lisp.net:/tmp/cvs-serv4018 Added Files: TEST.BMP TEST.GIF TEST.JPG cells.asd cells.fasl cells.lisp cells.lpr Log Message: test Date: Fri Jun 25 19:55:52 2004 Author: ktilton From ktilton at common-lisp.net Sat Jun 26 18:32:53 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:32:53 -0700 Subject: [cells-cvs] CVS update: Module imported: cell-cultures Message-ID: Update of /project/cells/cvsroot/cell-cultures In directory common-lisp.net:/tmp/cvs-serv3597 Log Message: Status: Vendor Tag: tcvs-vendor Release Tags: tcvs-release No conflicts created by this import Date: Sat Jun 26 11:32:53 2004 Author: ktilton New module cell-cultures added From ktilton at common-lisp.net Sat Jun 26 18:34:50 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:34:50 -0700 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/cello Message-ID: Update of /project/cells/cvsroot/cell-cultures/cello In directory common-lisp.net:/tmp/cvs-serv8634/cello Log Message: Directory /project/cells/cvsroot/cell-cultures/cello added to the repository Date: Sat Jun 26 11:34:50 2004 Author: ktilton New directory cell-cultures/cello added From ktilton at common-lisp.net Sat Jun 26 18:34:50 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:34:50 -0700 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/cellodemo Message-ID: Update of /project/cells/cvsroot/cell-cultures/cellodemo In directory common-lisp.net:/tmp/cvs-serv8634/cellodemo Log Message: Directory /project/cells/cvsroot/cell-cultures/cellodemo added to the repository Date: Sat Jun 26 11:34:50 2004 Author: ktilton New directory cell-cultures/cellodemo added From ktilton at common-lisp.net Sat Jun 26 18:34:50 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:34:50 -0700 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/cells Message-ID: Update of /project/cells/cvsroot/cell-cultures/cells In directory common-lisp.net:/tmp/cvs-serv8634/cells Log Message: Directory /project/cells/cvsroot/cell-cultures/cells added to the repository Date: Sat Jun 26 11:34:50 2004 Author: ktilton New directory cell-cultures/cells added From ktilton at common-lisp.net Sat Jun 26 18:34:50 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:34:50 -0700 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/celtic Message-ID: Update of /project/cells/cvsroot/cell-cultures/celtic In directory common-lisp.net:/tmp/cvs-serv8634/celtic Log Message: Directory /project/cells/cvsroot/cell-cultures/celtic added to the repository Date: Sat Jun 26 11:34:50 2004 Author: ktilton New directory cell-cultures/celtic added From ktilton at common-lisp.net Sat Jun 26 18:34:50 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:34:50 -0700 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/cl-ftgl Message-ID: Update of /project/cells/cvsroot/cell-cultures/cl-ftgl In directory common-lisp.net:/tmp/cvs-serv8634/cl-ftgl Log Message: Directory /project/cells/cvsroot/cell-cultures/cl-ftgl added to the repository Date: Sat Jun 26 11:34:50 2004 Author: ktilton New directory cell-cultures/cl-ftgl added From ktilton at common-lisp.net Sat Jun 26 18:34:50 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:34:50 -0700 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/cl-magick Message-ID: Update of /project/cells/cvsroot/cell-cultures/cl-magick In directory common-lisp.net:/tmp/cvs-serv8634/cl-magick Log Message: Directory /project/cells/cvsroot/cell-cultures/cl-magick added to the repository Date: Sat Jun 26 11:34:50 2004 Author: ktilton New directory cell-cultures/cl-magick added From ktilton at common-lisp.net Sat Jun 26 18:34:50 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:34:50 -0700 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/cl-openal Message-ID: Update of /project/cells/cvsroot/cell-cultures/cl-openal In directory common-lisp.net:/tmp/cvs-serv8634/cl-openal Log Message: Directory /project/cells/cvsroot/cell-cultures/cl-openal added to the repository Date: Sat Jun 26 11:34:50 2004 Author: ktilton New directory cell-cultures/cl-openal added From ktilton at common-lisp.net Sat Jun 26 18:34:50 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:34:50 -0700 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/cl-opengl Message-ID: Update of /project/cells/cvsroot/cell-cultures/cl-opengl In directory common-lisp.net:/tmp/cvs-serv8634/cl-opengl Log Message: Directory /project/cells/cvsroot/cell-cultures/cl-opengl added to the repository Date: Sat Jun 26 11:34:50 2004 Author: ktilton New directory cell-cultures/cl-opengl added From ktilton at common-lisp.net Sat Jun 26 18:34:50 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:34:50 -0700 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/config Message-ID: Update of /project/cells/cvsroot/cell-cultures/config In directory common-lisp.net:/tmp/cvs-serv8634/config Log Message: Directory /project/cells/cvsroot/cell-cultures/config added to the repository Date: Sat Jun 26 11:34:50 2004 Author: ktilton New directory cell-cultures/config added From ktilton at common-lisp.net Sat Jun 26 18:34:50 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:34:50 -0700 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/ffi-extender Message-ID: Update of /project/cells/cvsroot/cell-cultures/ffi-extender In directory common-lisp.net:/tmp/cvs-serv8634/ffi-extender Log Message: Directory /project/cells/cvsroot/cell-cultures/ffi-extender added to the repository Date: Sat Jun 26 11:34:50 2004 Author: ktilton New directory cell-cultures/ffi-extender added From ktilton at common-lisp.net Sat Jun 26 18:34:51 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:34:51 -0700 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/ftgl-int Message-ID: Update of /project/cells/cvsroot/cell-cultures/ftgl-int In directory common-lisp.net:/tmp/cvs-serv8634/ftgl-int Log Message: Directory /project/cells/cvsroot/cell-cultures/ftgl-int added to the repository Date: Sat Jun 26 11:34:51 2004 Author: ktilton New directory cell-cultures/ftgl-int added From ktilton at common-lisp.net Sat Jun 26 18:34:51 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:34:51 -0700 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/ide Message-ID: Update of /project/cells/cvsroot/cell-cultures/ide In directory common-lisp.net:/tmp/cvs-serv8634/ide Log Message: Directory /project/cells/cvsroot/cell-cultures/ide added to the repository Date: Sat Jun 26 11:34:51 2004 Author: ktilton New directory cell-cultures/ide added From ktilton at common-lisp.net Sat Jun 26 18:34:51 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:34:51 -0700 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/utils-kt Message-ID: Update of /project/cells/cvsroot/cell-cultures/utils-kt In directory common-lisp.net:/tmp/cvs-serv8634/utils-kt Log Message: Directory /project/cells/cvsroot/cell-cultures/utils-kt added to the repository Date: Sat Jun 26 11:34:51 2004 Author: ktilton New directory cell-cultures/utils-kt added From ktilton at common-lisp.net Sat Jun 26 18:35:18 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:35:18 -0700 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/cells/cells-test Message-ID: Update of /project/cells/cvsroot/cell-cultures/cells/cells-test In directory common-lisp.net:/tmp/cvs-serv10173/cells-test Log Message: Directory /project/cells/cvsroot/cell-cultures/cells/cells-test added to the repository Date: Sat Jun 26 11:35:18 2004 Author: ktilton New directory cell-cultures/cells/cells-test added From ktilton at common-lisp.net Sat Jun 26 18:35:18 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:35:18 -0700 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/cells/doc Message-ID: Update of /project/cells/cvsroot/cell-cultures/cells/doc In directory common-lisp.net:/tmp/cvs-serv10173/doc Log Message: Directory /project/cells/cvsroot/cell-cultures/cells/doc added to the repository Date: Sat Jun 26 11:35:18 2004 Author: ktilton New directory cell-cultures/cells/doc added From ktilton at common-lisp.net Sat Jun 26 18:36:58 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:36:58 -0700 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/ide/cloucell Message-ID: Update of /project/cells/cvsroot/cell-cultures/ide/cloucell In directory common-lisp.net:/tmp/cvs-serv12546/cloucell Log Message: Directory /project/cells/cvsroot/cell-cultures/ide/cloucell added to the repository Date: Sat Jun 26 11:36:58 2004 Author: ktilton New directory cell-cultures/ide/cloucell added From ktilton at common-lisp.net Sat Jun 26 18:38:32 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:38:32 -0700 Subject: [cells-cvs] CVS update: cell-cultures/asdf.lisp cell-cultures/build-sys-kt.lisp cell-cultures/build.lisp cell-cultures/cello-config.lisp cell-cultures/install-notes.txt Message-ID: Update of /project/cells/cvsroot/cell-cultures In directory common-lisp.net:/tmp/cvs-serv14387 Added Files: asdf.lisp build-sys-kt.lisp build.lisp cello-config.lisp install-notes.txt Log Message: hello world Date: Sat Jun 26 11:38:32 2004 Author: ktilton From ktilton at common-lisp.net Sat Jun 26 18:38:35 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:38:35 -0700 Subject: [cells-cvs] CVS update: cell-cultures/cello/application.lisp cell-cultures/cello/cello-ftgl.lisp cell-cultures/cello/cello-ftgl.lpr cell-cultures/cello/cello-magick.lisp cell-cultures/cello/cello-openal.lisp cell-cultures/cello/cello.asd cell-cultures/cello/cello.lpr cell-cultures/cello/cellocore.asd cell-cultures/cello/cellocore.lisp cell-cultures/cello/clipping.lisp cell-cultures/cello/colors.lisp cell-cultures/cello/control.lisp cell-cultures/cello/coordinate-xform.lisp cell-cultures/cello/ct-scroll-bar.lisp cell-cultures/cello/ct-scroll-pane.lisp cell-cultures/cello/ctl-drag.lisp cell-cultures/cello/ctl-markbox.lisp cell-cultures/cello/ctl-selectable.lisp cell-cultures/cello/ctl-toggle.lisp cell-cultures/cello/datetime.lisp cell-cultures/cello/focus-navigation.lisp cell-cultures/cello/focus-utilities.lisp cell-cultures/cello/focus.lisp cell-cultures/cello/font.lisp cell-cultures/cello/frame.lisp cell-cultures/cello/image.lisp cell-cultures/cello/ix-canvas.lisp cell-cultures/cello/ix-family.lisp cell-cultures/cello/ix-geometry.lisp cell-cultures/cello/ix-grid.lisp cell-cultures/cello/ix-inline.lisp cell-cultures/cello/ix-layer-expand.lisp cell-cultures/cello/ix-polygon.lisp cell-cultures/cello/ix-render.lisp cell-cultures/cello/ix-styled.lisp cell-cultures/cello/ix-text.lisp cell-cultures/cello/jans.lisp cell-cultures/cello/lighting.lisp cell-cultures/cello/menu.lisp cell-cultures/cello/mg-geometry.lisp cell-cultures/cello/mouse-click.lisp cell-cultures/cello/pick.lisp cell-cultures/cello/rgb.lisp cell-cultures/cello/slider.lisp cell-cultures/cello/to-do.lisp cell-cultures/cello/window-callbacks.lisp cell-cultures/cello/window-key.lisp cell-cultures/cello/window-macros.lisp cell-cultures/cello/window-render.lisp cell-cultures/cello/window-utilities.lisp cell-cultures/cello/window.lisp cell-cultures/cello/wm-mouse.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/cello In directory common-lisp.net:/tmp/cvs-serv14387/cello Added Files: application.lisp cello-ftgl.lisp cello-ftgl.lpr cello-magick.lisp cello-openal.lisp cello.asd cello.lpr cellocore.asd cellocore.lisp clipping.lisp colors.lisp control.lisp coordinate-xform.lisp ct-scroll-bar.lisp ct-scroll-pane.lisp ctl-drag.lisp ctl-markbox.lisp ctl-selectable.lisp ctl-toggle.lisp datetime.lisp focus-navigation.lisp focus-utilities.lisp focus.lisp font.lisp frame.lisp image.lisp ix-canvas.lisp ix-family.lisp ix-geometry.lisp ix-grid.lisp ix-inline.lisp ix-layer-expand.lisp ix-polygon.lisp ix-render.lisp ix-styled.lisp ix-text.lisp jans.lisp lighting.lisp menu.lisp mg-geometry.lisp mouse-click.lisp pick.lisp rgb.lisp slider.lisp to-do.lisp window-callbacks.lisp window-key.lisp window-macros.lisp window-render.lisp window-utilities.lisp window.lisp wm-mouse.lisp Log Message: hello world Date: Sat Jun 26 11:38:33 2004 Author: ktilton From ktilton at common-lisp.net Sat Jun 26 18:38:36 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:38:36 -0700 Subject: [cells-cvs] CVS update: cell-cultures/cellodemo/cellodemo.asd cell-cultures/cellodemo/cellodemo.lisp cell-cultures/cellodemo/cellodemo.lpr cell-cultures/cellodemo/demo-window.lisp cell-cultures/cellodemo/hedron-decoration.lisp cell-cultures/cellodemo/hedron-render.lisp cell-cultures/cellodemo/light-panel.lisp cell-cultures/cellodemo/tutor-geometry.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/cellodemo In directory common-lisp.net:/tmp/cvs-serv14387/cellodemo Added Files: cellodemo.asd cellodemo.lisp cellodemo.lpr demo-window.lisp hedron-decoration.lisp hedron-render.lisp light-panel.lisp tutor-geometry.lisp Log Message: hello world Date: Sat Jun 26 11:38:35 2004 Author: ktilton From ktilton at common-lisp.net Sat Jun 26 18:38:37 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:38:37 -0700 Subject: [cells-cvs] CVS update: cell-cultures/cells/cell-doc.lisp cell-cultures/cells/cell-ii-pseudocode.lisp cell-cultures/cells/cell-types.lisp cell-cultures/cells/cells-test.lpr cell-cultures/cells/cells.asd cell-cultures/cells/cells.lisp cell-cultures/cells/cells.lpr cell-cultures/cells/constructors.lisp cell-cultures/cells/defmodel.lisp cell-cultures/cells/defpackage.lisp cell-cultures/cells/family-values.lisp cell-cultures/cells/family.lisp cell-cultures/cells/fm-utilities.lisp cell-cultures/cells/initialize.lisp cell-cultures/cells/integrity.lisp cell-cultures/cells/link.lisp cell-cultures/cells/md-slot-value.lisp cell-cultures/cells/md-utilities.lisp cell-cultures/cells/model-object.lisp cell-cultures/cells/optimization.lisp cell-cultures/cells/profile-dump.cl cell-cultures/cells/profile.lisp cell-cultures/cells/propagate.lisp cell-cultures/cells/rif.lisp cell-cultures/cells/slot-utilities.lisp cell-cultures/cells/synapse-types.lisp cell-cultures/cells/synapse.lisp cell-cultures/cells/test.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/cells In directory common-lisp.net:/tmp/cvs-serv14387/cells Added Files: cell-doc.lisp cell-ii-pseudocode.lisp cell-types.lisp cells-test.lpr cells.asd cells.lisp cells.lpr constructors.lisp defmodel.lisp defpackage.lisp family-values.lisp family.lisp fm-utilities.lisp initialize.lisp integrity.lisp link.lisp md-slot-value.lisp md-utilities.lisp model-object.lisp optimization.lisp profile-dump.cl profile.lisp propagate.lisp rif.lisp slot-utilities.lisp synapse-types.lisp synapse.lisp test.lisp Log Message: hello world Date: Sat Jun 26 11:38:36 2004 Author: ktilton From ktilton at common-lisp.net Sat Jun 26 18:38:38 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:38:38 -0700 Subject: [cells-cvs] CVS update: cell-cultures/cells/cells-test/boiler-examples.lisp cell-cultures/cells/cells-test/build-sys.lisp cell-cultures/cells/cells-test/cells-test.asd cell-cultures/cells/cells-test/df-interference.lisp cell-cultures/cells/cells-test/echo-setf.lisp cell-cultures/cells/cells-test/hello-world-q.lisp cell-cultures/cells/cells-test/hello-world.lisp cell-cultures/cells/cells-test/internal-combustion.lisp cell-cultures/cells/cells-test/lazy-propagation.lisp cell-cultures/cells/cells-test/output-setf.lisp cell-cultures/cells/cells-test/person.lisp cell-cultures/cells/cells-test/synapse-testing.lisp cell-cultures/cells/cells-test/test-cyclicity.lisp cell-cultures/cells/cells-test/test-family.lisp cell-cultures/cells/cells-test/test-kid-slotting.lisp cell-cultures/cells/cells-test/test-lazy.lisp cell-cultures/cells/cells-test/test.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/cells/cells-test In directory common-lisp.net:/tmp/cvs-serv14387/cells/cells-test Added Files: boiler-examples.lisp build-sys.lisp cells-test.asd df-interference.lisp echo-setf.lisp hello-world-q.lisp hello-world.lisp internal-combustion.lisp lazy-propagation.lisp output-setf.lisp person.lisp synapse-testing.lisp test-cyclicity.lisp test-family.lisp test-kid-slotting.lisp test-lazy.lisp test.lisp Log Message: hello world Date: Sat Jun 26 11:38:37 2004 Author: ktilton From ktilton at common-lisp.net Sat Jun 26 18:38:38 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:38:38 -0700 Subject: [cells-cvs] CVS update: cell-cultures/cells/doc/01-Cell-basics.lisp cell-cultures/cells/doc/hw.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/cells/doc In directory common-lisp.net:/tmp/cvs-serv14387/cells/doc Added Files: 01-Cell-basics.lisp hw.lisp Log Message: hello world Date: Sat Jun 26 11:38:38 2004 Author: ktilton From ktilton at common-lisp.net Sat Jun 26 18:38:39 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:38:39 -0700 Subject: [cells-cvs] CVS update: cell-cultures/celtic/base.lisp cell-cultures/celtic/button.lisp cell-cultures/celtic/canvas.lisp cell-cultures/celtic/celtic.lisp cell-cultures/celtic/celtic.lpr cell-cultures/celtic/ctk-test.lisp cell-cultures/celtic/frame.lisp cell-cultures/celtic/ps-test.lisp cell-cultures/celtic/textual.lisp cell-cultures/celtic/visual-apropos.lisp cell-cultures/celtic/widget-item.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/celtic In directory common-lisp.net:/tmp/cvs-serv14387/celtic Added Files: base.lisp button.lisp canvas.lisp celtic.lisp celtic.lpr ctk-test.lisp frame.lisp ps-test.lisp textual.lisp visual-apropos.lisp widget-item.lisp Log Message: hello world Date: Sat Jun 26 11:38:38 2004 Author: ktilton From ktilton at common-lisp.net Sat Jun 26 18:38:39 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:38:39 -0700 Subject: [cells-cvs] CVS update: cell-cultures/cl-ftgl/cl-ftgl.lisp cell-cultures/cl-ftgl/cl-ftgl.lpr Message-ID: Update of /project/cells/cvsroot/cell-cultures/cl-ftgl In directory common-lisp.net:/tmp/cvs-serv14387/cl-ftgl Added Files: cl-ftgl.lisp cl-ftgl.lpr Log Message: hello world Date: Sat Jun 26 11:38:39 2004 Author: ktilton From ktilton at common-lisp.net Sat Jun 26 18:38:40 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:38:40 -0700 Subject: [cells-cvs] CVS update: cell-cultures/cl-magick/build.lisp cell-cultures/cl-magick/cl-magick.asd cell-cultures/cl-magick/cl-magick.lisp cell-cultures/cl-magick/cl-magick.lpr cell-cultures/cl-magick/drawing-wand.lisp cell-cultures/cl-magick/magick-wand.lisp cell-cultures/cl-magick/mgk-test.lisp cell-cultures/cl-magick/mgk-utils.lisp cell-cultures/cl-magick/pixel-wand.lisp cell-cultures/cl-magick/wand-image.lisp cell-cultures/cl-magick/wand-pixels.lisp cell-cultures/cl-magick/wand-texture.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/cl-magick In directory common-lisp.net:/tmp/cvs-serv14387/cl-magick Added Files: build.lisp cl-magick.asd cl-magick.lisp cl-magick.lpr drawing-wand.lisp magick-wand.lisp mgk-test.lisp mgk-utils.lisp pixel-wand.lisp wand-image.lisp wand-pixels.lisp wand-texture.lisp Log Message: hello world Date: Sat Jun 26 11:38:39 2004 Author: ktilton From ktilton at common-lisp.net Sat Jun 26 18:38:40 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:38:40 -0700 Subject: [cells-cvs] CVS update: cell-cultures/cl-openal/al.lisp cell-cultures/cl-openal/alc.lisp cell-cultures/cl-openal/alctypes.lisp cell-cultures/cl-openal/altypes.lisp cell-cultures/cl-openal/alu.lisp cell-cultures/cl-openal/alut.lisp cell-cultures/cl-openal/cl-openal-demo.lisp cell-cultures/cl-openal/cl-openal-init.lisp cell-cultures/cl-openal/cl-openal.asd cell-cultures/cl-openal/cl-openal.lisp cell-cultures/cl-openal/cl-openal.lpr cell-cultures/cl-openal/wav-handling.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/cl-openal In directory common-lisp.net:/tmp/cvs-serv14387/cl-openal Added Files: al.lisp alc.lisp alctypes.lisp altypes.lisp alu.lisp alut.lisp cl-openal-demo.lisp cl-openal-init.lisp cl-openal.asd cl-openal.lisp cl-openal.lpr wav-handling.lisp Log Message: hello world Date: Sat Jun 26 11:38:40 2004 Author: ktilton From ktilton at common-lisp.net Sat Jun 26 18:38:41 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:38:41 -0700 Subject: [cells-cvs] CVS update: cell-cultures/cl-opengl/cl-opengl.asd cell-cultures/cl-opengl/cl-opengl.lisp cell-cultures/cl-opengl/cl-opengl.lpr cell-cultures/cl-opengl/gl-constants.lisp cell-cultures/cl-opengl/gl-def.lisp cell-cultures/cl-opengl/gl-functions.lisp cell-cultures/cl-opengl/glu-functions.lisp cell-cultures/cl-opengl/glut-def.lisp cell-cultures/cl-opengl/glut-extras.lisp cell-cultures/cl-opengl/glut-functions.lisp cell-cultures/cl-opengl/nehe-14.lisp cell-cultures/cl-opengl/ogl-macros.lisp cell-cultures/cl-opengl/ogl-utils.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/cl-opengl In directory common-lisp.net:/tmp/cvs-serv14387/cl-opengl Added Files: cl-opengl.asd cl-opengl.lisp cl-opengl.lpr gl-constants.lisp gl-def.lisp gl-functions.lisp glu-functions.lisp glut-def.lisp glut-extras.lisp glut-functions.lisp nehe-14.lisp ogl-macros.lisp ogl-utils.lisp Log Message: hello world Date: Sat Jun 26 11:38:41 2004 Author: ktilton From ktilton at common-lisp.net Sat Jun 26 18:38:42 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:38:42 -0700 Subject: [cells-cvs] CVS update: cell-cultures/config/cellocore-config.lisp cell-cultures/config/cellodemo-config.lisp cell-cultures/config/cl-ftgl-config.lisp cell-cultures/config/cl-magick-config.lisp cell-cultures/config/cl-openal-config.lisp cell-cultures/config/cl-opengl-config.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/config In directory common-lisp.net:/tmp/cvs-serv14387/config Added Files: cellocore-config.lisp cellodemo-config.lisp cl-ftgl-config.lisp cl-magick-config.lisp cl-openal-config.lisp cl-opengl-config.lisp Log Message: hello world Date: Sat Jun 26 11:38:41 2004 Author: ktilton From ktilton at common-lisp.net Sat Jun 26 18:38:42 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:38:42 -0700 Subject: [cells-cvs] CVS update: cell-cultures/ffi-extender/arrays.lisp cell-cultures/ffi-extender/callbacks.lisp cell-cultures/ffi-extender/definers.lisp cell-cultures/ffi-extender/ffi-extender.asd cell-cultures/ffi-extender/ffi-extender.lpr Message-ID: Update of /project/cells/cvsroot/cell-cultures/ffi-extender In directory common-lisp.net:/tmp/cvs-serv14387/ffi-extender Added Files: arrays.lisp callbacks.lisp definers.lisp ffi-extender.asd ffi-extender.lpr Log Message: hello world Date: Sat Jun 26 11:38:42 2004 Author: ktilton From ktilton at common-lisp.net Sat Jun 26 18:38:42 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:38:42 -0700 Subject: [cells-cvs] CVS update: cell-cultures/ftgl-int/FTGLFromC.cpp cell-cultures/ftgl-int/main.cpp Message-ID: Update of /project/cells/cvsroot/cell-cultures/ftgl-int In directory common-lisp.net:/tmp/cvs-serv14387/ftgl-int Added Files: FTGLFromC.cpp main.cpp Log Message: hello world Date: Sat Jun 26 11:38:42 2004 Author: ktilton From ktilton at common-lisp.net Sat Jun 26 18:38:43 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:38:43 -0700 Subject: [cells-cvs] CVS update: cell-cultures/ide/cloucell/01-cell-basics.lisp cell-cultures/ide/cloucell/cloucell.asd cell-cultures/ide/cloucell/cloucell.lpr cell-cultures/ide/cloucell/ct-item-stack.lisp cell-cultures/ide/cloucell/ct-slot-stack.lisp cell-cultures/ide/cloucell/edt-window.lisp cell-cultures/ide/cloucell/inspection.lisp cell-cultures/ide/cloucell/inspector-toolbar.lisp cell-cultures/ide/cloucell/inspector-window.lisp cell-cultures/ide/cloucell/object-inspector-01.lisp cell-cultures/ide/cloucell/object-inspector-02.lisp cell-cultures/ide/cloucell/outline.lisp cell-cultures/ide/cloucell/slot-inspector.lisp cell-cultures/ide/cloucell/structure-view.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/ide/cloucell In directory common-lisp.net:/tmp/cvs-serv14387/ide/cloucell Added Files: 01-cell-basics.lisp cloucell.asd cloucell.lpr ct-item-stack.lisp ct-slot-stack.lisp edt-window.lisp inspection.lisp inspector-toolbar.lisp inspector-window.lisp object-inspector-01.lisp object-inspector-02.lisp outline.lisp slot-inspector.lisp structure-view.lisp Log Message: hello world Date: Sat Jun 26 11:38:42 2004 Author: ktilton From ktilton at common-lisp.net Sat Jun 26 18:38:43 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 26 Jun 2004 11:38:43 -0700 Subject: [cells-cvs] CVS update: cell-cultures/utils-kt/debug.lisp cell-cultures/utils-kt/defpackage.lisp cell-cultures/utils-kt/detritus.lisp cell-cultures/utils-kt/flow-control.lisp cell-cultures/utils-kt/quad.lisp cell-cultures/utils-kt/strings.lisp cell-cultures/utils-kt/utils-kt.lpr Message-ID: Update of /project/cells/cvsroot/cell-cultures/utils-kt In directory common-lisp.net:/tmp/cvs-serv14387/utils-kt Added Files: debug.lisp defpackage.lisp detritus.lisp flow-control.lisp quad.lisp strings.lisp utils-kt.lpr Log Message: hello world Date: Sat Jun 26 11:38:43 2004 Author: ktilton From tburdick at common-lisp.net Sat Jun 26 23:36:49 2004 From: tburdick at common-lisp.net (Thomas F. Burdick) Date: Sat, 26 Jun 2004 16:36:49 -0700 Subject: [cells-cvs] CVS update: cell-cultures/cells/cells.lpr Message-ID: Update of /project/cells/cvsroot/cell-cultures/cells In directory common-lisp.net:/tmp/cvs-serv13771 Modified Files: cells.lpr Log Message: Made path to utils-kt relative (hopefully this is okay) Date: Sat Jun 26 16:36:49 2004 Author: tburdick Index: cell-cultures/cells/cells.lpr diff -u cell-cultures/cells/cells.lpr:1.1 cell-cultures/cells/cells.lpr:1.2 --- cell-cultures/cells/cells.lpr:1.1 Sat Jun 26 11:38:36 2004 +++ cell-cultures/cells/cells.lpr Sat Jun 26 16:36:49 2004 @@ -27,7 +27,7 @@ (make-instance 'module :name "family-values.lisp") (make-instance 'module :name "test.lisp")) :projects (list (make-instance 'project-module :name - "c:\\dvl\\utils-kt\\utils-kt")) + "../utils-kt/utils-kt")) :libraries nil :distributed-files nil :project-package-name :cells From ktilton at common-lisp.net Sun Jun 27 17:46:50 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sun, 27 Jun 2004 10:46:50 -0700 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/clyde Message-ID: Update of /project/cells/cvsroot/cell-cultures/clyde In directory common-lisp.net:/tmp/cvs-serv24768/clyde Log Message: Directory /project/cells/cvsroot/cell-cultures/clyde added to the repository Date: Sun Jun 27 10:46:50 2004 Author: ktilton New directory cell-cultures/clyde added From ktilton at common-lisp.net Sun Jun 27 17:46:57 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sun, 27 Jun 2004 10:46:57 -0700 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/clyde/cloucell Message-ID: Update of /project/cells/cvsroot/cell-cultures/clyde/cloucell In directory common-lisp.net:/tmp/cvs-serv25007/cloucell Log Message: Directory /project/cells/cvsroot/cell-cultures/clyde/cloucell added to the repository Date: Sun Jun 27 10:46:57 2004 Author: ktilton New directory cell-cultures/clyde/cloucell added From ktilton at common-lisp.net Sun Jun 27 17:46:57 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sun, 27 Jun 2004 10:46:57 -0700 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/clyde/visual-apropos Message-ID: Update of /project/cells/cvsroot/cell-cultures/clyde/visual-apropos In directory common-lisp.net:/tmp/cvs-serv25007/visual-apropos Log Message: Directory /project/cells/cvsroot/cell-cultures/clyde/visual-apropos added to the repository Date: Sun Jun 27 10:46:57 2004 Author: ktilton New directory cell-cultures/clyde/visual-apropos added From ktilton at common-lisp.net Sun Jun 27 23:52:25 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sun, 27 Jun 2004 16:52:25 -0700 Subject: [cells-cvs] CVS update: cell-cultures/clyde/visual-apropos/visual-apropos.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/clyde/visual-apropos In directory common-lisp.net:/tmp/cvs-serv17111/clyde/visual-apropos Added Files: visual-apropos.lisp Log Message: Date: Sun Jun 27 16:52:25 2004 Author: ktilton From ktilton at common-lisp.net Sun Jun 27 23:54:29 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sun, 27 Jun 2004 16:54:29 -0700 Subject: [cells-cvs] CVS update: cell-cultures/celtic/button.lisp cell-cultures/celtic/celtic.lisp cell-cultures/celtic/celtic.lpr cell-cultures/celtic/frame.lisp cell-cultures/celtic/ctk-test.lisp cell-cultures/celtic/visual-apropos.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/celtic In directory common-lisp.net:/tmp/cvs-serv23697/celtic Modified Files: button.lisp celtic.lisp celtic.lpr frame.lisp Removed Files: ctk-test.lisp visual-apropos.lisp Log Message: Date: Sun Jun 27 16:54:29 2004 Author: ktilton Index: cell-cultures/celtic/button.lisp diff -u cell-cultures/celtic/button.lisp:1.1 cell-cultures/celtic/button.lisp:1.2 --- cell-cultures/celtic/button.lisp:1.1 Sat Jun 26 11:38:38 2004 +++ cell-cultures/celtic/button.lisp Sun Jun 27 16:54:28 2004 @@ -34,8 +34,6 @@ (-command nil) -compound -default -height -overrelief -state -width)) - - (defun test-button () (make-be 'button :text (format nil "Time is ~a" (get-internal-real-time)) :width 48 @@ -58,6 +56,11 @@ -overrelief -selectcolor -selectimage -state -tristateimage -tristatevalue (-tk-variable -variable) -width)) +(def-c-output .md-value ((self checkbutton)) + (tk-send (format nil "set ~a ~a" + (down$ (md-name self)) + (if new-value 1 0)))) + (def-widget radiobutton () (-activebackground -activeforeground -anchor -background -bitmap -borderwidth -cursor -disabledforeground @@ -70,7 +73,6 @@ -overrelief -selectcolor -selectimage -state -tristateimage -tristatevalue (-tk-variable -variable) -width) (:default-initargs - :value (c? (eql self (selection (upper self selector)))) :command (lambda (self) (setf (selection (upper self selector)) self)))) Index: cell-cultures/celtic/celtic.lisp diff -u cell-cultures/celtic/celtic.lisp:1.1 cell-cultures/celtic/celtic.lisp:1.2 --- cell-cultures/celtic/celtic.lisp:1.1 Sat Jun 26 11:38:38 2004 +++ cell-cultures/celtic/celtic.lisp Sun Jun 27 16:54:28 2004 @@ -88,7 +88,7 @@ (defun tk-send (text) "send a string to wish" - (when t ;;*debug-tk* + (when *debug-tk* (format t "~&tk-send> ~A~%" text) (force-output)) (format *w* "~A~%" text) Index: cell-cultures/celtic/celtic.lpr diff -u cell-cultures/celtic/celtic.lpr:1.1 cell-cultures/celtic/celtic.lpr:1.2 --- cell-cultures/celtic/celtic.lpr:1.1 Sat Jun 26 11:38:38 2004 +++ cell-cultures/celtic/celtic.lpr Sun Jun 27 16:54:28 2004 @@ -11,9 +11,7 @@ (make-instance 'module :name "frame.lisp") (make-instance 'module :name "canvas.lisp") (make-instance 'module :name "textual.lisp") - (make-instance 'module :name "button.lisp") - (make-instance 'module :name "ps-test.lisp") - (make-instance 'module :name "visual-apropos.lisp")) + (make-instance 'module :name "button.lisp")) :projects (list (make-instance 'project-module :name "c:\\dvl\\cells\\cells")) :libraries nil Index: cell-cultures/celtic/frame.lisp diff -u cell-cultures/celtic/frame.lisp:1.1 cell-cultures/celtic/frame.lisp:1.2 --- cell-cultures/celtic/frame.lisp:1.1 Sat Jun 26 11:38:38 2004 +++ cell-cultures/celtic/frame.lisp Sun Jun 27 16:54:28 2004 @@ -21,7 +21,6 @@ (in-package :celtic) - (def-widget frame () (-borderwidth -cursor -highlightbackground -highlightcolor -highlightthickness -padx -pady -relief @@ -60,6 +59,12 @@ :cursor "hand2" :font "Courier")))) +; ------------------------------------------------------------------ + +(defmodel labelframe-selector (selector labelframe)()) +(defun labelframe-selector (&rest init-args) + (apply 'make-instance 'labelframe-selector init-args)) + ;------------------------------------------------------- (defun layout-row () @@ -67,7 +72,7 @@ (path self) (mapcar 'path (^kids))))) (defun layout-stack () - (c? (format nil "pack ~a -side {left}; pack~{ ~a~} -side {top}" + (c? (format nil "pack ~a -side {left}; pack~{ ~a~} -side {top} -anchor nw" (path self) (mapcar 'path (^kids))))) (defmacro frame-row ((&rest options) &rest kids) @@ -79,3 +84,34 @@ `(frame ,@(append options `(:layout (layout-stack) :kids (c? (list , at kids)))))) + +;------------------------------------------------------ + +(defmodel selector () + ((selection :accessor selection :initarg :selection) + (initial-selection :initform nil :reader initial-selection + :initarg :initial-selection) + (tk-variable :cell nil :accessor tk-variable :initarg :tk-variable)) + (:default-initargs + :selection (c-in nil))) + +(def-c-output initial-selection () + (setf (selection self) new-value)) + +(def-c-output selection () + (when new-value + (tk-send (format nil "set ~a ~a" + (down$ (tk-variable self)) + (down$ (md-name new-value)))))) + +;--------------------------------------------------------- + +(defmodel radiogroup (selector) + ((tk-variable :accessor tk-variable :initarg :tk-variable)) + (:default-initargs + :tk-variable (c? (md-name self)))) + +(defmodel labelframe-radiogroup (radiogroup labelframe)()) +(defun labelframe-radiogroup (&rest init-args) + (apply 'make-instance 'labelframe-radiogroup init-args)) + From ktilton at common-lisp.net Mon Jun 28 04:25:15 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sun, 27 Jun 2004 21:25:15 -0700 Subject: [cells-cvs] CVS update: cell-cultures/celtic/button.lisp cell-cultures/celtic/frame.lisp cell-cultures/celtic/widget-item.lisp cell-cultures/celtic/base.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/celtic In directory common-lisp.net:/tmp/cvs-serv8831/celtic Modified Files: button.lisp frame.lisp widget-item.lisp Removed Files: base.lisp Log Message: Date: Sun Jun 27 21:25:14 2004 Author: ktilton Index: cell-cultures/celtic/button.lisp diff -u cell-cultures/celtic/button.lisp:1.2 cell-cultures/celtic/button.lisp:1.3 --- cell-cultures/celtic/button.lisp:1.2 Sun Jun 27 16:54:28 2004 +++ cell-cultures/celtic/button.lisp Sun Jun 27 21:25:14 2004 @@ -30,7 +30,7 @@ -bitmap -borderwidth -cursor -disabledforeground -font -foreground -highlightbackground -highlightcolor -highlightthickness -image -justify -padx -pady -relief -repeatdelay - -repeatinterval -takefocus -text -textvariable (-uline -underline) -wraplength + -repeatinterval -takefocus -text -textvariable -underline -wraplength (-command nil) -compound -default -height -overrelief -state -width)) Index: cell-cultures/celtic/frame.lisp diff -u cell-cultures/celtic/frame.lisp:1.2 cell-cultures/celtic/frame.lisp:1.3 --- cell-cultures/celtic/frame.lisp:1.2 Sun Jun 27 16:54:28 2004 +++ cell-cultures/celtic/frame.lisp Sun Jun 27 21:25:14 2004 @@ -45,6 +45,19 @@ -takefocus -background (tk-class -class) -colormap -container -height -visual -width -text -labelanchor -labelwidget)) +(defmodel stack (frame) + () + (:default-initargs + :kid-slots (lambda (self) + (declare (ignore self)) + (list + (mk-kid-slot (layout :if-missing t) + (c? (format nil "pack~{ ~a~} -side {top} -anchor nw" + (path self)))))))) +(defun stack (&rest init-args) + (apply 'make-instance 'stack init-args)) + + (defun test-labelframe () (make-be 'labelframe :text "Considering" Index: cell-cultures/celtic/widget-item.lisp diff -u cell-cultures/celtic/widget-item.lisp:1.1 cell-cultures/celtic/widget-item.lisp:1.2 --- cell-cultures/celtic/widget-item.lisp:1.1 Sat Jun 26 11:38:38 2004 +++ cell-cultures/celtic/widget-item.lisp Sun Jun 27 21:25:14 2004 @@ -35,8 +35,7 @@ :initform (c? (format nil "~a.~a" (if (fm-parent self) (path .parent) "") (name self)))) - (layout :reader layout :initarg :layout - :initform (c? (format nil "pack ~a" (path self)))) + (layout :reader layout :initarg :layout :initform nil) (configurations :reader configurations :initarg :configurations :initform nil)) (:default-initargs :md-name (create-name))) @@ -98,7 +97,7 @@ )) (defmethod not-to-be :after ((self item)) - (trc "whacking item" self) + (trc nil "whacking item" self) (tk-send (format nil "~a delete ~a" (path (upper self widget)) (id-no self)))) (defmethod make-tk-instance :after ((self item)) From tburdick at common-lisp.net Tue Jun 29 08:54:05 2004 From: tburdick at common-lisp.net (Thomas F. Burdick) Date: Tue, 29 Jun 2004 01:54:05 -0700 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/asdf-aclproj Message-ID: Update of /project/cells/cvsroot/cell-cultures/asdf-aclproj In directory common-lisp.net:/tmp/cvs-serv4384/asdf-aclproj Log Message: Directory /project/cells/cvsroot/cell-cultures/asdf-aclproj added to the repository Date: Tue Jun 29 01:54:05 2004 Author: tburdick New directory cell-cultures/asdf-aclproj added From tburdick at common-lisp.net Tue Jun 29 08:56:15 2004 From: tburdick at common-lisp.net (Thomas F. Burdick) Date: Tue, 29 Jun 2004 01:56:15 -0700 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/asdf-repository Message-ID: Update of /project/cells/cvsroot/cell-cultures/asdf-repository In directory common-lisp.net:/tmp/cvs-serv11718/asdf-repository Log Message: Directory /project/cells/cvsroot/cell-cultures/asdf-repository added to the repository Date: Tue Jun 29 01:56:15 2004 Author: tburdick New directory cell-cultures/asdf-repository added From tburdick at common-lisp.net Tue Jun 29 08:58:48 2004 From: tburdick at common-lisp.net (Thomas F. Burdick) Date: Tue, 29 Jun 2004 01:58:48 -0700 Subject: [cells-cvs] CVS update: cell-cultures/asdf-aclproj/asdf-aclproj.asd cell-cultures/asdf-aclproj/asdf-aclproj.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/asdf-aclproj In directory common-lisp.net:/tmp/cvs-serv14176/asdf-aclproj Added Files: asdf-aclproj.asd asdf-aclproj.lisp Log Message: Added asdf<->lpr glue, and fixed ACL-produced nonsense like defpackage forms for the common-lisp package (I'm guessing ACL ignores these). Date: Tue Jun 29 01:58:48 2004 Author: tburdick From tburdick at common-lisp.net Tue Jun 29 08:58:49 2004 From: tburdick at common-lisp.net (Thomas F. Burdick) Date: Tue, 29 Jun 2004 01:58:49 -0700 Subject: [cells-cvs] CVS update: cell-cultures/cells/cells.asd cell-cultures/cells/cells.lisp cell-cultures/cells/defpackage.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/cells In directory common-lisp.net:/tmp/cvs-serv14176/cells Modified Files: cells.asd cells.lisp defpackage.lisp Log Message: Added asdf<->lpr glue, and fixed ACL-produced nonsense like defpackage forms for the common-lisp package (I'm guessing ACL ignores these). Date: Tue Jun 29 01:58:49 2004 Author: tburdick Index: cell-cultures/cells/cells.asd diff -u cell-cultures/cells/cells.asd:1.1 cell-cultures/cells/cells.asd:1.2 --- cell-cultures/cells/cells.asd:1.1 Sat Jun 26 11:38:36 2004 +++ cell-cultures/cells/cells.asd Tue Jun 29 01:58:49 2004 @@ -3,10 +3,12 @@ ;(declaim (optimize (debug 2) (speed 1) (safety 1) (compilation-speed 1))) (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0))) +(operate 'load-op :asdf-aclproj) +(use-package :asdf-aclproj) #+(or allegro lispworks cmu mcl clisp cormanlisp sbcl scl) -(asdf:defsystem :cells +(defsystem :cells :name "cells" :author "Kenny Tilton " :version "05-Nov-2003" @@ -14,33 +16,8 @@ :licence "MIT Style" :description "Cells" :long-description "The Cells dataflow extension to CLOS." - :serial t - :components - ((:file "cells") - (:file "debug") - (:file "flow-control") - (:file "strings") - (:file "detritus") - (:file "cell-types") - (:file "integrity") - (:file "constructors") - (:file "initialize") - (:file "md-slot-value") - (:file "slot-utilities") - (:file "optimization") - (:file "link") - (:file "propagate") - (:file "synapse") - (:file "synapse-types") - (:file "model-object") - (:file "defmodel") - (:file "md-utilities") - (:file "family") - (:file "fm-utilities") - (:file "family-values") - (:file "quad") - (:file "test"))) + :components ((lpr-project-file "cells"))) -(defmethod asdf:perform ((o load-op) (c (eql (find-system :cells)))) - (pushnew "CELLS" *modules*) - (pushnew :cells *features*)) \ No newline at end of file +(defmethod perform ((o load-op) (c (eql (find-system :cells)))) + ; (pushnew "CELLS" *modules* :test #'string=) + (pushnew :cells *features*)) Index: cell-cultures/cells/cells.lisp diff -u cell-cultures/cells/cells.lisp:1.1 cell-cultures/cells/cells.lisp:1.2 --- cell-cultures/cells/cells.lisp:1.1 Sat Jun 26 11:38:36 2004 +++ cell-cultures/cells/cells.lisp Tue Jun 29 01:58:49 2004 @@ -26,34 +26,6 @@ (eval-when (compile load) (proclaim '(optimize (speed 2) (safety 3) (space 1) (debug 3)))) -(defpackage :cells - (:use "COMMON-LISP" - #+allegro "EXCL" - #-(or cormanlisp cmu sbcl) "CLOS" - #+sbcl "SB-MOP" - #+mcl "CCL" - ) - #+clisp (:import-from #:clos "CLASS-SLOTS" "CLASS-PRECEDENCE-LIST") - #+cmu (:import-from "PCL" "CLASS-PRECEDENCE-LIST" "CLASS-SLOTS" - "SLOT-DEFINITION-NAME" "TRUE") - #+lispworks (:import-from "LW" "TRUE") - (:export "CELL" "C-INPUT" #:c-in #:c-in8 "C?" #:c?8 "C?_" "C??" - #:with-integrity #:with-deference "WITHOUT-C-DEPENDENCY" "SELF" - ".CACHE" "C-LAMBDA" ".CAUSE" - "DEFMODEL" "C-AWAKEN" "DEF-C-OUTPUT" "DEF-C-UNCHANGED-TEST" - "NEW-VALUE" "OLD-VALUE" "C..." - #:make-be - "MKPART" "THE-KIDS" "NSIB" "MD-VALUE" "^MD-VALUE" ".MD-VALUE" "KIDS" "^KIDS" ".KIDS" - "CELL-RESET" "UPPER" "FM-MAX" "NEAREST" "FM-MIN-KID" "FM-MAX-KID" "MK-KID-SLOT" - "DEF-KID-SLOTS" "FIND-PRIOR" "FM-POS" "KID-NO" "FM-INCLUDES" "FM-ASCENDANT-COMMON" - "FM-KID-CONTAINING" "FM-FIND-IF" "FM-ASCENDANT-IF" "C-ABS" "FM-COLLECT-IF" "PSIB" - "TO-BE" "NOT-TO-BE" "SSIBNO" "MD-AWAKEN" - #:c-debug "C-BREAK" "C-ASSERT" "C-STOP" "C-STOPPED" "C-ASSERT" ".STOP" - #:delta-diff - ) - #+allegro (:shadowing-import-from #:excl #:fasl-write #:fasl-read #:gc) - ) - (in-package :cells) (defconstant *c-optimizep* t) Index: cell-cultures/cells/defpackage.lisp diff -u cell-cultures/cells/defpackage.lisp:1.1 cell-cultures/cells/defpackage.lisp:1.2 --- cell-cultures/cells/defpackage.lisp:1.1 Sat Jun 26 11:38:36 2004 +++ cell-cultures/cells/defpackage.lisp Tue Jun 29 01:58:49 2004 @@ -20,7 +20,7 @@ ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS ;;; IN THE SOFTWARE. -(in-package :common-lisp) +(in-package :common-lisp-user) (defpackage :cells (:use #:common-lisp @@ -45,8 +45,7 @@ #:def-kid-slots #:find-prior #:fm-pos #:kid-no #:fm-includes #:fm-ascendant-common #:fm-kid-containing #:fm-find-if #:fm-ascendant-if #:c-abs #:fm-collect-if #:psib #:to-be #:not-to-be #:ssibno #:md-awaken - #:c-debug #:c-break #:c-assert #:c-stop #:c-stopped #:c-assert #:.stop - #:delta-diff + #:c-debug #:c-break #:c-assert #:c-stop #:c-stopped #:c-assert #:.stop #:delta-diff ) #+allegro (:shadowing-import-from #:excl #:fasl-write #:fasl-read #:gc) ) From tburdick at common-lisp.net Tue Jun 29 08:58:49 2004 From: tburdick at common-lisp.net (Thomas F. Burdick) Date: Tue, 29 Jun 2004 01:58:49 -0700 Subject: [cells-cvs] CVS update: cell-cultures/utils-kt/debug.lisp cell-cultures/utils-kt/defpackage.lisp cell-cultures/utils-kt/utils-kt.lpr Message-ID: Update of /project/cells/cvsroot/cell-cultures/utils-kt In directory common-lisp.net:/tmp/cvs-serv14176/utils-kt Modified Files: debug.lisp defpackage.lisp utils-kt.lpr Log Message: Added asdf<->lpr glue, and fixed ACL-produced nonsense like defpackage forms for the common-lisp package (I'm guessing ACL ignores these). Date: Tue Jun 29 01:58:49 2004 Author: tburdick Index: cell-cultures/utils-kt/debug.lisp diff -u cell-cultures/utils-kt/debug.lisp:1.1 cell-cultures/utils-kt/debug.lisp:1.2 --- cell-cultures/utils-kt/debug.lisp:1.1 Sat Jun 26 11:38:43 2004 +++ cell-cultures/utils-kt/debug.lisp Tue Jun 29 01:58:49 2004 @@ -22,10 +22,6 @@ (in-package :utils-kt) -(eval-when (compile load eval) - (export '(eko eko-if))) - - (defparameter *trcdepth* 0) (defvar *count* nil) (defvar *counting* nil) Index: cell-cultures/utils-kt/defpackage.lisp diff -u cell-cultures/utils-kt/defpackage.lisp:1.1 cell-cultures/utils-kt/defpackage.lisp:1.2 --- cell-cultures/utils-kt/defpackage.lisp:1.1 Sat Jun 26 11:38:43 2004 +++ cell-cultures/utils-kt/defpackage.lisp Tue Jun 29 01:58:49 2004 @@ -20,15 +20,13 @@ ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS ;;; IN THE SOFTWARE. -(in-package :common-lisp) - (defpackage :utils-kt (:use #:common-lisp #-(or cormanlisp cmu sbcl) #:clos #+sbcl #:sb-mop #+mcl #:ccl) (:export - #:eko #:count-it #:trc #:maptimes #:bwhen #:bif #:xor + #:eko #:eko-if #:count-it #:trc #:maptimes #:bwhen #:bif #:xor "WITH-DYNAMIC-FN" #:last1 #:packed-flat! #:with-metrics "TRUE" "SHORTC" #:intern$ #:defconstant-once "*COUNT*" "*STOP*" "*DBG*" "*TRCDEPTH*" Index: cell-cultures/utils-kt/utils-kt.lpr diff -u cell-cultures/utils-kt/utils-kt.lpr:1.1 cell-cultures/utils-kt/utils-kt.lpr:1.2 --- cell-cultures/utils-kt/utils-kt.lpr:1.1 Sat Jun 26 11:38:43 2004 +++ cell-cultures/utils-kt/utils-kt.lpr Tue Jun 29 01:58:49 2004 @@ -2,10 +2,6 @@ (in-package :common-graphics-user) -(defpackage :common-lisp - (:export :intern :find-package :list :make-instance :t :nil - :quote)) - (define-project :name :utils-kt :application-type (intern "Standard EXE" (find-package :keyword)) :modules (list (make-instance 'module :name "defpackage.lisp") From tburdick at common-lisp.net Wed Jun 30 00:58:36 2004 From: tburdick at common-lisp.net (Thomas F. Burdick) Date: Tue, 29 Jun 2004 17:58:36 -0700 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/asdf-registry Message-ID: Update of /project/cells/cvsroot/cell-cultures/asdf-registry In directory common-lisp.net:/tmp/cvs-serv10152/asdf-registry Log Message: Directory /project/cells/cvsroot/cell-cultures/asdf-registry added to the repository Date: Tue Jun 29 17:58:36 2004 Author: tburdick New directory cell-cultures/asdf-registry added From tburdick at common-lisp.net Wed Jun 30 01:08:33 2004 From: tburdick at common-lisp.net (Thomas F. Burdick) Date: Tue, 29 Jun 2004 18:08:33 -0700 Subject: [cells-cvs] CVS update: cell-cultures/README cell-cultures/README-ASDF Message-ID: Update of /project/cells/cvsroot/cell-cultures In directory common-lisp.net:/tmp/cvs-serv26932 Added Files: README README-ASDF Log Message: Moved some things around, added installation instructions. Date: Tue Jun 29 18:08:33 2004 Author: tburdick From tburdick at common-lisp.net Wed Jun 30 01:08:33 2004 From: tburdick at common-lisp.net (Thomas F. Burdick) Date: Tue, 29 Jun 2004 18:08:33 -0700 Subject: [cells-cvs] CVS update: cell-cultures/asdf-registry/create-symlinks.sh Message-ID: Update of /project/cells/cvsroot/cell-cultures/asdf-registry In directory common-lisp.net:/tmp/cvs-serv26932/asdf-registry Added Files: create-symlinks.sh Log Message: Moved some things around, added installation instructions. Date: Tue Jun 29 18:08:33 2004 Author: tburdick From tburdick at common-lisp.net Wed Jun 30 01:08:33 2004 From: tburdick at common-lisp.net (Thomas F. Burdick) Date: Tue, 29 Jun 2004 18:08:33 -0700 Subject: [cells-cvs] CVS update: cell-cultures/cells/cells-test.asd Message-ID: Update of /project/cells/cvsroot/cell-cultures/cells In directory common-lisp.net:/tmp/cvs-serv26932/cells Added Files: cells-test.asd Log Message: Moved some things around, added installation instructions. Date: Tue Jun 29 18:08:33 2004 Author: tburdick From tburdick at common-lisp.net Wed Jun 30 01:08:34 2004 From: tburdick at common-lisp.net (Thomas F. Burdick) Date: Tue, 29 Jun 2004 18:08:34 -0700 Subject: [cells-cvs] CVS update: cell-cultures/cells/cells-test/cells-test.asd Message-ID: Update of /project/cells/cvsroot/cell-cultures/cells/cells-test In directory common-lisp.net:/tmp/cvs-serv26932/cells/cells-test Removed Files: cells-test.asd Log Message: Moved some things around, added installation instructions. Date: Tue Jun 29 18:08:33 2004 Author: tburdick From tburdick at common-lisp.net Wed Jun 30 20:56:36 2004 From: tburdick at common-lisp.net (Thomas F. Burdick) Date: Wed, 30 Jun 2004 13:56:36 -0700 Subject: [cells-cvs] CVS update: cell-cultures/cells/cells-test.asd Message-ID: Update of /project/cells/cvsroot/cell-cultures/cells In directory common-lisp.net:/tmp/cvs-serv19449/cells Modified Files: cells-test.asd Log Message: Fixes from porting to CMUCL: * Fixed a serialization bug in asdf-aclproj. * Cleaned up defpackage forms. * Loading cells-test with asdf now runs the tests in an :after method. Date: Wed Jun 30 13:56:36 2004 Author: tburdick Index: cell-cultures/cells/cells-test.asd diff -u cell-cultures/cells/cells-test.asd:1.1 cell-cultures/cells/cells-test.asd:1.2 --- cell-cultures/cells/cells-test.asd:1.1 Tue Jun 29 18:08:33 2004 +++ cell-cultures/cells/cells-test.asd Wed Jun 30 13:56:36 2004 @@ -18,3 +18,6 @@ :long-description "Informatively-commented regression tests for Cells" :serial t :components ((lpr-project-file "cells-test"))) + +(defmethod perform :after ((op load-op) (system (eql (find-system :cells-test)))) + (cells::cv-test)) \ No newline at end of file From tburdick at common-lisp.net Wed Jun 30 21:02:12 2004 From: tburdick at common-lisp.net (Thomas F. Burdick) Date: Wed, 30 Jun 2004 14:02:12 -0700 Subject: [cells-cvs] CVS update: cell-cultures/utils-kt/defpackage.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/utils-kt In directory common-lisp.net:/tmp/cvs-serv7072/utils-kt Modified Files: defpackage.lisp Log Message: Date: Wed Jun 30 14:02:12 2004 Author: tburdick Index: cell-cultures/utils-kt/defpackage.lisp diff -u cell-cultures/utils-kt/defpackage.lisp:1.2 cell-cultures/utils-kt/defpackage.lisp:1.3 --- cell-cultures/utils-kt/defpackage.lisp:1.2 Tue Jun 29 01:58:49 2004 +++ cell-cultures/utils-kt/defpackage.lisp Wed Jun 30 14:02:12 2004 @@ -20,16 +20,13 @@ ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS ;;; IN THE SOFTWARE. +(in-package :cl-user) + (defpackage :utils-kt - (:use #:common-lisp - #-(or cormanlisp cmu sbcl) #:clos - #+sbcl #:sb-mop - #+mcl #:ccl) + (:use #:common-lisp) (:export #:eko #:eko-if #:count-it #:trc #:maptimes #:bwhen #:bif #:xor "WITH-DYNAMIC-FN" #:last1 #:packed-flat! #:with-metrics "TRUE" "SHORTC" #:intern$ #:defconstant-once "*COUNT*" "*STOP*" "*DBG*" "*TRCDEPTH*" #:make-fifo-queue #:fifo-add #:fifo-empty #:fifo-pop #:mapfifo)) - -(in-package :utils-kt) From tburdick at common-lisp.net Wed Jun 30 21:02:47 2004 From: tburdick at common-lisp.net (Thomas F. Burdick) Date: Wed, 30 Jun 2004 14:02:47 -0700 Subject: [cells-cvs] CVS update: cell-cultures/cells/defpackage.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/cells In directory common-lisp.net:/tmp/cvs-serv10030/cells Modified Files: defpackage.lisp Log Message: Date: Wed Jun 30 14:02:47 2004 Author: tburdick Index: cell-cultures/cells/defpackage.lisp diff -u cell-cultures/cells/defpackage.lisp:1.2 cell-cultures/cells/defpackage.lisp:1.3 --- cell-cultures/cells/defpackage.lisp:1.2 Tue Jun 29 01:58:49 2004 +++ cell-cultures/cells/defpackage.lisp Wed Jun 30 14:02:47 2004 @@ -23,17 +23,22 @@ (in-package :common-lisp-user) (defpackage :cells - (:use #:common-lisp - #:utils-kt - #+allegro #:excl - #-(or cormanlisp cmu sbcl) #:clos - #+sbcl #:sb-mop + (:use #:common-lisp #:utils-kt) + (:import-from + ;; MOP + #+allegro #:excl + #+clisp #:clos + #+cmu #:mop + #+lispworks #:clos #+mcl #:ccl + #+sbcl #:sb-mop + #-(or allegro clisp cmu lispworks mcl sbcl) + (cerror "Provide a package name." + "Don't know how to find the MOP package for this Lisp.") + + #:class-precedence-list #:class-slots #:slot-definition-name ) - #+clisp (:import-from #:clos #:class-slots #:class-precedence-list) - #+cmu (:import-from #:pcl #:class-precedence-list #:class-slots - #:slot-definition-name #:true) - #+lispworks (:import-from #:lw #:true) + (:export #:cell #:c-input #:c-in #:c-in8 #:c? #:c?8 #:c?_ #:c?? #:with-integrity #:with-deference #:without-c-dependency #:self #:.cache #:c-lambda #:.cause @@ -49,4 +54,3 @@ ) #+allegro (:shadowing-import-from #:excl #:fasl-write #:fasl-read #:gc) ) - From tburdick at common-lisp.net Wed Jun 30 21:02:47 2004 From: tburdick at common-lisp.net (Thomas F. Burdick) Date: Wed, 30 Jun 2004 14:02:47 -0700 Subject: [cells-cvs] CVS update: cell-cultures/asdf-aclproj/asdf-aclproj.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/asdf-aclproj In directory common-lisp.net:/tmp/cvs-serv10030/asdf-aclproj Modified Files: asdf-aclproj.lisp Log Message: Date: Wed Jun 30 14:02:47 2004 Author: tburdick Index: cell-cultures/asdf-aclproj/asdf-aclproj.lisp diff -u cell-cultures/asdf-aclproj/asdf-aclproj.lisp:1.1 cell-cultures/asdf-aclproj/asdf-aclproj.lisp:1.2 --- cell-cultures/asdf-aclproj/asdf-aclproj.lisp:1.1 Tue Jun 29 01:58:48 2004 +++ cell-cultures/asdf-aclproj/asdf-aclproj.lisp Wed Jun 30 14:02:47 2004 @@ -48,12 +48,6 @@ (defmethod asdf:module-components ((project lpr-project-file)) (project-modules project)) -#+(or) -(defmethod asdf:perform :before (operation (project lpr-project-file)) - (unless (asdf:module-components project) - (setf (asdf:module-components project) - (project-modules project)))) - ;;;; For use in .lpr files (defclass lpr-component () ()) @@ -61,8 +55,9 @@ (defclass project-module (lpr-component lpr-project-file) ()) ;; Because we allow goofy names like ../foo/bar.lisp, we want to return the -;; truename of the pathname, if it exists, so children will be merged -;; correctly. +;; truename of the pathname, if it exists, so children will be merged correctly. +;; I think this is a workaround for a bug in SBCL's pathname merging, but the +;; bug could be in my understanding of CL pathnames -tfb (defmethod asdf:component-pathname ((component lpr-component)) (let ((path (call-next-method))) (or (probe-file path) path))) @@ -125,8 +120,8 @@ (apply #'call-next-method component args))) (defun ensure-cgu-package () - #+(and acl mswindows) - (progn (aclwin-warning) (return-from ensure-cgu-package)) + #+(and acl mswindows) (progn (aclwin-warning) + (return-from ensure-cgu-package)) (unless (find-package "COMMON-GRAPHICS-USER") (let ((user-package (find-package "ASDF-ACLPROJ-USER"))) (assert (not (null user-package))) @@ -162,7 +157,8 @@ for depends-on = (reverse so-far) do (setf (slot-value component 'asdf::in-order-to) `((asdf:load-op (asdf:load-op , at depends-on)) - (asdf:compile-op (asdf:compile-op , at depends-on)))) + (asdf:compile-op (asdf:load-op , at depends-on) + (asdf:compile-op , at depends-on)))) (push component so-far) finally (return (reverse so-far))))) (setf *project-modules*