X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/e0ae0cdefa99e9dc1b2e1938779558f1878c1864..a4232a83263192fdd2ca2f33f1947fe6747d3bc3:/src/presentations.lisp

diff --git a/src/presentations.lisp b/src/presentations.lisp
index 82f18e3..77510a8 100644
--- a/src/presentations.lisp
+++ b/src/presentations.lisp
@@ -1,16 +1,6 @@
-(in-package :mewa)
+(in-package :lisp-on-lines)
 
 
-
- (defun split-list (n list)  
-  (loop for cons on list
-        by #'(lambda (x) (nthcdr n x))
-        if (< 0 n)
-        collect (loop for atom in cons
-                      repeat n
-                      collect atom)
-        else return nil))
-
 (defaction edit-instance ((self mewa))
   (call-presentation (instance self) :type :editor))
 
@@ -126,7 +116,7 @@
 
 (defgeneric search-expr (criteria instance)
   (:documentation "Return ready to apply criteria.
-                   What to do with it is backend dependent."))
+                   to do with What it is backend dependent."))
 
 (defmacro def-search-expr (((self criteria-type)) (model-expr &body body))
   `(defmethod search-expr ((,self ,criteria-type) instance)