(format stream "~S~%"
(string-right-trim '(#\return) (raw-message-string msg)))))
-(uffi:def-foreign-type time-t :unsigned-long)
-(uffi:def-function ("ctime" c-ctime)
- ((time (* time-t)))
- :returning :cstring)
-
(defconstant +posix-epoch+
(encode-universal-time 0 0 0 1 1 1970 0))