Added validation.lisp

[clinton/lisp-on-lines.git] / src / presentations.lisp

diff --git a/src/presentations.lisp b/src/presentations.lisp
index 77510a8..64f3c24 100644 (file)
--- a/src/presentations.lisp
+++ b/src/presentations.lisp
@@ -1,6 +1,6 @@
+(declaim (optimize (speed 0) (space 3) (safety 0)))
 (in-package :lisp-on-lines)
 
-
 (defaction edit-instance ((self mewa))
   (call-presentation (instance self) :type :editor))
 
@@ -102,8 +102,7 @@
                      :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))