Update of /project/cello/cvsroot/cello In directory clnet:/tmp/cvs-serv23004

Modified Files: cello.lisp Log Message: Added: Id line for CVS version info in header Added: ASDF loading of packages Cello depends on Added: Some beautifying of the code (section headers)

--- /project/cello/cvsroot/cello/cello.lisp 2006/07/06 22:09:10 1.7 +++ /project/cello/cvsroot/cello/cello.lisp 2006/08/23 10:27:33 1.8 @@ -14,6 +14,31 @@

|#

+;;; $Id: cello.lisp,v 1.8 2006/08/23 10:27:33 fgoenninger Exp $ + +;;; ============================================================================ +;;; PACKAGES CELLO DEPENDS ON +;;; ============================================================================ + +;;; Note: Order matters! + +#+asdf +(eval-when (:load-toplevel :execute) + (asdf:operate 'asdf:load-op 'utils-kt) + (asdf:operate 'asdf:load-op 'cells) + (asdf:operate 'asdf:load-op 'gui-geometry) + (asdf:operate 'asdf:load-op 'cffi) + (asdf:operate 'asdf:load-op 'cffi-extender) + (asdf:operate 'asdf:load-op 'kt-opengl) + (asdf:operate 'asdf:load-op 'Celtk) + (asdf:operate 'asdf:load-op 'cl-openal) + (asdf:operate 'asdf:load-op 'cl-ftgl) + (asdf:operate 'asdf:load-op 'cl-magick)) + +;;; ============================================================================ +;;; PACKAGE DEFINITION +;;; ============================================================================ + (defpackage :cello (:nicknames :clo) (:use @@ -22,7 +47,8 @@ #:utils-kt #:cells #:gui-geometry - #:ffx + #:cffi + #:cffi-extender #:celtk #:kt-opengl #:cl-openal @@ -30,10 +56,9 @@ #:cl-magick) (:export #:cello-window-event-handler #:with-layers #:visible #:ix-togl))

-;;; in step one we will just have Celtk playing the part of Freeglut -;;; -;;; #:celtk) -;;; (:shadowing-import-from #:celtk #:window)) +;;; ============================================================================ +;;; MISC +;;; ============================================================================

(in-package :cello)