|
Lines 215-221
Link Here
|
| 215 |
) |
215 |
) |
| 216 |
|
216 |
|
| 217 |
#+(and clisp unix) |
217 |
#+(and clisp unix) |
| 218 |
(defun getpid () (unix:getpid)) |
218 |
(defun getpid () (sys::process-id)) |
| 219 |
|
219 |
|
| 220 |
#+ (and sbcl unix) |
220 |
#+ (and sbcl unix) |
| 221 |
(progn |
221 |
(progn |
|
Lines 1519-1526
Link Here
|
| 1519 |
(if* error-obj |
1519 |
(if* error-obj |
| 1520 |
then (brief-logmess |
1520 |
then (brief-logmess |
| 1521 |
(format nil "While reading http request~:_ from ~a:~:_ ~a" |
1521 |
(format nil "While reading http request~:_ from ~a:~:_ ~a" |
|
|
1522 |
#+clisp |
| 1523 |
(acl-compat.socket:ipaddr-to-dotted |
| 1524 |
(acl-compat.socket::remote-host sock)) |
| 1525 |
#-clisp |
| 1522 |
(socket:ipaddr-to-dotted |
1526 |
(socket:ipaddr-to-dotted |
| 1523 |
(socket::remote-host sock)) |
1527 |
(socket::remote-host sock)) |
| 1524 |
error-obj))) |
1528 |
error-obj))) |
| 1525 |
|
1529 |
|
| 1526 |
; notify the client if it's still listening |
1530 |
; notify the client if it's still listening |
|
Lines 2777-2782
Link Here
|
| 2777 |
data ; list of buffers |
2781 |
data ; list of buffers |
| 2778 |
create ; create new object for the buffer |
2782 |
create ; create new object for the buffer |
| 2779 |
init ; optional - used to init buffers taken off the free list |
2783 |
init ; optional - used to init buffers taken off the free list |
|
|
2784 |
#-clisp |
| 2780 |
(lock (acl-compat.mp:make-process-lock)) |
2785 |
(lock (acl-compat.mp:make-process-lock)) |
| 2781 |
) |
2786 |
) |
| 2782 |
|
2787 |
|
