Minor optimization
authorMatthew Mondor <mmondor@pulsar-zone.net>
Fri, 19 Aug 2011 11:58:25 +0000 (11:58 +0000)
committerMatthew Mondor <mmondor@pulsar-zone.net>
Fri, 19 Aug 2011 11:58:25 +0000 (11:58 +0000)
mmsoftware/cl/server/html.lisp

index 2bcf4d8..64912f3 100644 (file)
@@ -1,4 +1,4 @@
-;;;; $Id: html.lisp,v 1.1 2011/08/19 11:48:25 mmondor Exp $
+;;;; $Id: html.lisp,v 1.2 2011/08/19 11:58:25 mmondor Exp $
 
 #|
 
@@ -254,6 +254,8 @@ where appropriate."
 Note that for simplicity, efficiency and to allow nested DO-HTML forms,
 user code must explicitely use this function where necessary."
   ;; A few macros for speed
+  (declare (optimize (speed 3) (safety 0) (debug 0)))
+  (check-type string string)
   (macrolet ((add-char (c)
               `(vector-push-extend ,c out 1024))
             (add-string (s)