actually include the declaim mentioned previously

darcs-hash:20051122050906-5417e-de288029485017bcdf9f01f2e208cde4c4adb7ce.gz

diff --git a/src/mewa.lisp b/src/mewa.lisp
index fcfead4..203fdf3 100644 (file)
--- a/src/mewa.lisp
+++ b/src/mewa.lisp
@@ -1,5 +1,7 @@
+(declaim (optimize (speed 2) (space 3) (safety 0)))
+

 (in-package :lisp-on-lines)
 (in-package :lisp-on-lines)

- 
+

 (defparameter *default-type* :ucw)
 
 ;;;; I think these are unused now
 (defparameter *default-type* :ucw)
 
 ;;;; I think these are unused now