[cello-cvs] CVS cello

[fgoenninger]

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)