X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/5dea194ed068c8ff73dd65849d92be4ee6c7097b..487243dba4467de347ed11697cc6adf938495755:/src/presentations.lisp

diff --git a/src/presentations.lisp b/src/presentations.lisp
index 77510a8..64f3c24 100644
--- 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))