-(in-package :mewa)
-
-
-
- (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))
+(declaim (optimize (speed 0) (space 3) (safety 0)))
+(in-package :lisp-on-lines)
(defaction edit-instance ((self mewa))
(call-presentation (instance self) :type :editor))
:value "view"))))
(dolist (slot (slots listing))
(<:td :class "data-cell" (present-slot slot object)))
- (<:td :class "index-number-cell")
- ))
+ (<:td :class "index-number-cell")))
(defmethod get-all-instances ((self mewa-list-presentation))
(instances self))
(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)