Changeset 16377


Ignore:
Timestamp:
May 1, 2015, 1:40:43 AM (5 years ago)
Author:
svspire
Message:

Fixed bug in #'stop-server; added #'stop-all-servers.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/swink.lisp

    r15169 r16377  
    2323     "START-SERVER"
    2424     "STOP-SERVER"
    25 
     25     "STOP-ALL-SERVERS"
    2626     ;; Some stuff that's also useful on client side
    2727     "THREAD"
     
    480480        (close socket :abort t) ;; harmless if already closed.
    481481        (with-swink-lock ()
    482           (remf *listener-sockets* info)))
     482          (remf *listener-sockets* port)))
    483483      t)))
     484
     485(defun stop-all-servers ()
     486  "Stop all swink servers"
     487  (loop for info on *listener-sockets* by #'cddr do
     488    (stop-server (car info))))
    484489
    485490(defun enqueue-internal-request (conn event)
Note: See TracChangeset for help on using the changeset viewer.