Permalink
Browse files

rfe15026: optimize the compile of aserve

Version 1.3.52.

Tests with AG have shown significant improvement in performance with
this change.

Change-Id: I70266df7f67066f18de207c312fec83555ebd859
Reviewed-on: https://gerrit.franz.com:9080/7909
Reviewed-by: Robert Rorschach <rfr@franz.com>
Tested-by: Kevin Layer <layer@franz.com>
Reviewed-by: Duane Rettig <duane@franz.com>
Reviewed-by: Kevin Layer <layer@franz.com>
  • Loading branch information...
dklayer committed Jun 22, 2017
1 parent 5cb0c9b commit a6adb4f0009ea47fac39993a7407dfb91c87cc9d
Showing with 50 additions and 18 deletions.
  1. +2 −0 authorize.cl
  2. +2 −0 cgi.cl
  3. +1 −0 chunker.cl
  4. +2 −6 client.cl
  5. +2 −3 decode.cl
  6. +2 −1 headers.cl
  7. +2 −0 htmlgen/htmlgen.cl
  8. +2 −0 log.cl
  9. +2 −0 macs.cl
  10. +3 −1 main.cl
  11. +11 −6 packages.cl
  12. +2 −0 parse.cl
  13. +2 −0 playback.cl
  14. +2 −0 proxy.cl
  15. +1 −0 publish.cl
  16. +2 −0 queue.cl
  17. +2 −0 webactions/clpage.cl
  18. +2 −0 webactions/clpcode/clp.cl
  19. +1 −0 webactions/clpcode/http.cl
  20. +1 −0 webactions/clpcode/time.cl
  21. +1 −0 webactions/clpcode/wa.cl
  22. +2 −0 webactions/webact.cl
  23. +1 −1 webactions/websession.cl
View
@@ -15,6 +15,8 @@
(in-package :net.aserve)
(eval-when (compile) (declaim (optimize (speed 3))))
(defclass authorizer ()
;; denotes information on authorizing access to an entity
;; this is meant to be subclassed with the appropriate slots
View
2 cgi.cl
@@ -16,6 +16,8 @@
(in-package :net.aserve)
(eval-when (compile) (declaim (optimize (speed 3))))
(defun run-cgi-program (req ent program
&key
path-info
View
@@ -13,6 +13,7 @@
(in-package :net.aserve)
(eval-when (compile) (declaim (optimize (speed 3))))
; stream that reads the input and chunks the data to the output
View
@@ -18,14 +18,10 @@
;; just some simple stuff to allow us to test aserve
;;
(in-package :net.aserve.client)
(eval-when (compile) (declaim (optimize (speed 3))))
(net.aserve::check-smp-consistency)
(defclass client-request ()
View
@@ -5,18 +5,17 @@
;; See the file LICENSE for the full license governing this code.
;;
;;
;; Description:
;; decode/encode code
;;- This code in this file obeys the Lisp Coding Standard found in
;;- http://www.franz.com/~jkf/coding_standards.html
;;-
(in-package :net.aserve)
(eval-when (compile) (declaim (optimize (speed 3))))
;---------------- urlencoding ----------------
; there are two similar yet distinct encodings for character strings
; that are referred to as "url encodings". We'll refer to
View
@@ -13,9 +13,10 @@
;;- http://www.franz.com/~jkf/coding_standards.html
;;-
(in-package :net.aserve)
(eval-when (compile) (declaim (optimize (speed 3))))
(defvar *header-byte-array*
;; unsigned-byte 8 vector contains the characters referenced by
;; the *header-lookup-array* . All characters are downcased.
View
@@ -32,6 +32,8 @@
(in-package :net.html.generator)
(eval-when (compile) (declaim (optimize (speed 3))))
;; html generation
(defvar *html-stream*) ; all output sent here
View
2 log.cl
@@ -15,6 +15,8 @@
(in-package :net.aserve)
(eval-when (compile) (declaim (optimize (speed 3))))
(defun log1 (category level message &key (logger *logger*))
(log1* logger category level message))
View
@@ -21,6 +21,8 @@
(in-package :net.aserve)
(eval-when (compile) (declaim (optimize (speed 3))))
;; add features based on the capabilities of the host lisp
#+(version>= 6 1) (pushnew :io-timeout *features*) ; support i/o timeouts
View
@@ -16,10 +16,12 @@
(in-package :net.aserve)
(eval-when (compile) (declaim (optimize (speed 3))))
#+ignore
(check-smp-consistency)
(defparameter *aserve-version* '(1 3 51))
(defparameter *aserve-version* '(1 3 52))
(eval-when (eval load)
(require :sock)
View
@@ -5,16 +5,18 @@
;; See the file LICENSE for the full license governing this code.
#+(version= 10 1)
(sys:defpatch "aserve" 3
"v3: 1.3.51 add get-request-body-incremental;
(sys:defpatch "aserve" 4
"v4: 1.3.52: optimize compilation for speed;
v3: 1.3.51 add get-request-body-incremental;
v2: 1.3.50: define deflate-stream methods all the time;
v1: 1.3.49: speed up read-sock-line."
:type :system
:post-loadable t)
#+(version= 10 0)
(sys:defpatch "aserve" 14
"v14: 1.3.51 add get-request-body-incremental;
(sys:defpatch "aserve" 15
"v15: 1.3.52: optimize compilation for speed;
v14: 1.3.51 add get-request-body-incremental;
v13: 1.3.50: define deflate-stream methods all the time;
v12: 1.3.49: speed up read-sock-line;
v11: 1.3.45 - avoid races in constructor initialization;
@@ -32,8 +34,9 @@ v1: 1.3.36: cosmetic: bump version #; code same as 10.0 initial release."
:post-loadable t)
#+(version= 9 0)
(sys:defpatch "aserve" 21
"v21: 1.3.50: define deflate-stream methods all the time;
(sys:defpatch "aserve" 22
"v22: 1.3.52: optimize compilation for speed;
v21: 1.3.50: define deflate-stream methods all the time;
v20: 1.3.38: call make-ssl-client-stream with :method instead of :ssl-method;
v19: 1.3.37: add trailer support
v18: 1.3.36: add http-only cookies;
@@ -70,6 +73,8 @@ v1: 1.3.16: fix freeing freed buffer."
;
(in-package :user)
(eval-when (compile) (declaim (optimize (speed 3))))
(eval-when (compile load eval)
(require :osi)
(require :autozoom)
View
@@ -18,6 +18,8 @@
(in-package :net.aserve)
(eval-when (compile) (declaim (optimize (speed 3))))
(check-smp-consistency)
;; parseobj -- used for cons-free parsing of strings
View
@@ -20,6 +20,8 @@
(in-package :net.aserve)
(eval-when (compile) (declaim (optimize (speed 3))))
(defvar *last-responses* nil)
View
@@ -15,6 +15,8 @@
(in-package :net.aserve)
(eval-when (compile) (declaim (optimize (speed 3))))
(check-smp-consistency)
(defmacro with-mp-locked-connection-cache ((s) &rest body)
View
@@ -14,6 +14,7 @@
(in-package :net.aserve)
(eval-when (compile) (declaim (optimize (speed 3))))
(defclass entity ()
;; an object to be published
View
@@ -3,6 +3,8 @@
(in-package :net.aserve)
(eval-when (compile) (declaim (optimize (speed 3))))
#+(version= 8 2)
(eval-when (:compile-toplevel :load-toplevel :execute)
(handler-case (dequeue (make-instance 'mp:queue) :timeout 0 :empty-queue-result :foo)
View
@@ -36,6 +36,8 @@ v1: add timeout to webaction-project."
(in-package :net.aserve)
(eval-when (compile) (declaim (optimize (speed 3))))
(defpackage :net.aserve
(:export #:clp-directory-entity-processor
#:clp-entity
@@ -10,6 +10,8 @@
(in-package :net.aserve)
(eval-when (compile) (declaim (optimize (speed 3))))
(def-clp-function clp_base (req ent args body)
;; put out a base tag for this page.
;; use this in the head section so that relative links to images
@@ -8,6 +8,7 @@
(in-package :net.aserve)
(eval-when (compile) (declaim (optimize (speed 3))))
(def-clp-function http_header-value (req ent args body)
(declare (ignore ent body))
@@ -9,6 +9,7 @@
(in-package :net.aserve)
(eval-when (compile) (declaim (optimize (speed 3))))
(net.aserve:def-clp-function time_universal-time
(req ent args body)
View
@@ -10,6 +10,7 @@
(in-package :net.aserve)
(eval-when (compile) (declaim (optimize (speed 3))))
(def-clp-function wa_link (req ent args body)
(declare (ignore body))
View
@@ -24,6 +24,8 @@
(in-package :net.aserve)
(eval-when (compile) (declaim (optimize (speed 3))))
(defclass webaction-entity (computed-entity access-file-mixin)
((webaction ;; holds webaction object
:initarg :webaction
View
@@ -8,7 +8,7 @@
(in-package :net.aserve)
(eval-when (compile) (declaim (optimize (speed 3))))
(defclass websession-master ()
;; describes how a set of sessions is managed

0 comments on commit a6adb4f

Please sign in to comment.