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