-;;; $Id: ecl-mp-server.lisp,v 1.40 2012/09/21 13:15:37 mmondor Exp $
+;;; $Id: ecl-mp-server.lisp,v 1.41 2012/09/27 00:30:23 mmondor Exp $
#|
(in-package :server)
(defparameter *rcsid*
- "$Id: ecl-mp-server.lisp,v 1.40 2012/09/21 13:15:37 mmondor Exp $")
+ "$Id: ecl-mp-server.lisp,v 1.41 2012/09/27 00:30:23 mmondor Exp $")
(defun noop (&rest args)
unsigned-byte buffer.")
(defvar *session-int* (get-universal-time))
+(declaim (type fixnum *session-int*))
(defvar *session-lock* (mp:make-lock :name 'session-lock))
(declaim (inline make-session))
(defun make-session ()
+ (declare (optimize (speed 3) (safety 0) (debug 0)))
(let ((id 0))
+ (declare (type fixnum id))
(mp:with-lock (*session-lock*)
- (setf id (incf *session-int*)))
+ (setf id (the fixnum (incf *session-int*))))
id))
;;; The main loop of our worker threads. Accepts and serves connections
(declaim (inline accept))
(defun accept (socket lock)
+ (declare (optimize (speed 3) (safety 0) (debug 0)))
(loop
do
(handler-case