Changes http://wiki.axiom-developer.org/SocketsInSpad/diff --
++added: +(defvar |NewLine| '#\NewLine) + +;; some regexp stuff + +(defun |StringMatch| (s1 s2) + (si::string-match s1 s2) + ) + + + +(defun |ListMatches| (&rest args) + (si::list-matches args) + ) + +(defun |MatchBeginning| (i) + (si::match-beginning i) + ) + +(defun |MatchEnd| (i) + (si::match-end i) + ) + +;; the socket stuff + + (defun |SiSock| (p spadfn) ??changed: (defun |SiSock| (p spadfn) - (format t "SiSocket-1") +;; (format t "SiSocket-1") (si::socket p :server ??changed: (defun |SiCopyStream| (q s) (si::copy-stream q s)) - + +;; Camm Maguire's modified demo server + (defun foo (s) -- forwarded from http://wiki.axiom-developer.org/[EMAIL PROTECTED]
