[Morphologie-cvs] r16 - in trunk: . src

[ksprotte at common-lisp.net]

Author: ksprotte
Date: Fri Jul  6 05:15:45 2007
New Revision: 16

Added:
   trunk/TODO
Modified:
   trunk/morphologie.asd
   trunk/src/morphologie.lisp
Log:
small ch


Added: trunk/TODO
==============================================================================
--- (empty file)
+++ trunk/TODO	Fri Jul  6 05:15:45 2007
@@ -0,0 +1 @@
+* printed output in PWGL is not showing up - what to do?
\ No newline at end of file

Modified: trunk/morphologie.asd
==============================================================================
--- trunk/morphologie.asd	(original)
+++ trunk/morphologie.asd	Fri Jul  6 05:15:45 2007
@@ -1,8 +1,10 @@
 (in-package :asdf)
 
 (defsystem :morphologie
+  :version "3.0"
   :components
-  ((:module :src
+  ((:static-file "morphologie.asd")
+   (:module :src
 	    :serial t
 	    :components
 	    ((:file "package")

Modified: trunk/src/morphologie.lisp
==============================================================================
--- trunk/src/morphologie.lisp	(original)
+++ trunk/src/morphologie.lisp	Fri Jul  6 05:15:45 2007
@@ -36,6 +36,11 @@
 (def-menu morphologie)
 (in-menu morphologie)
 
+;;; until all OM symbols are out
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (unless (find-package :om)
+    (defpackage :om (:use :cl))))
+
 (define-box list-modulo (list &optional ncol)
   "partitions LIST in NCOL lists containing the elements modulo NCOL"
   :non-generic t