Commit 5dc9abe9 authored by David O'Toole's avatar David O'Toole

mini fixes

parent 1c7fe707
......@@ -671,14 +671,13 @@
;;; Message-passing frontend
(defmethod send-message ((buffer buffer) sexp)
;; (handler-case
(handler-case
(let ((data (compress-sexp sexp)))
(usocket:socket-send (output-socket buffer) data (length data)
:port (output-port buffer)
:host (output-host buffer)))
)
;; (condition (c)
;; (logging " TX ERROR: ~S" c))))
(condition (c)
(logging " TX ERROR: ~S" c))))
(defmethod message-ready-p ((buffer buffer))
(when (input-socket buffer)
......@@ -692,7 +691,7 @@
(verbosely "Cannot validate message.")))
(defmethod receive-message ((buffer buffer))
;; (handler-case
(handler-case
(when (message-ready-p buffer)
(multiple-value-bind (octets length host port)
(usocket:socket-receive (input-socket buffer) *datagram* *datagram-length*)
......@@ -706,10 +705,9 @@
(setf *last-message-timestamp*
(max timestamp *last-message-timestamp*))
(values message timestamp))))
)
;; (condition (c)
;; (logging " RX ERROR: ~S" c)
;; nil)))
(condition (c)
(logging " RX ERROR: ~S" c)
nil)))
(defmethod splash-screen-maybe ()
(unless *inhibit-splash-screen*
......
......@@ -383,7 +383,7 @@ User-Agent: SBCL/1.3 UPnP/1.1 XELF/3.1
(when (and (scrape-message message *upnp-mapping-response-string*)
(scrape-message message *upnp-ok-string*))
(logging "UPnP: Received <AddPortMappingResponse> OK")
(logging "UPnP FINISHED. PRESS [ENTER] TO START SERVER.")))
(logging "UPnP FINISHED. PRESS [ENTER] TO BEGIN ONLINE PLAY.")))
(defun register-external-ip-response (message)
(when (scrape-message message *upnp-ok-string*)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment