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