anchor.diff:  	(push port *allocated-tcp-ports*)
   	(return port)))))
   
  +(defvar *random-state* (list 0))
   (defun random (limit &optional random-state)
  -  0)
  +  (rem (incf (first (or random-state *random-state*))) limit))
   
   (defun tcp-connect (ip port)
     (let* ((source-port (allocate-local-tcp-port))
  
positive.code:                   (funcall (second server) connection))
                   (t (tcp4-send-packet connection blah (logand #xFFFFFFFF (1+ seq)) nil
                                        :ack-p t :rst-p t))))))
        (t (format t "No connection for TCP ~D ~D.~%" remote-port local-port)))))
  
  (defun %receive-packet (interface packet)
    (dolist (hook *raw-packet-hooks*)
  
negative.code: 
  (defun tcp-stream-connect (address port)
    (make-instance 'tcp-stream :connection (tcp-connect (resolve-address address) port)))
  
  (defmacro with-open-network-stream ((var address port) &body body)
    `(with-open-stream (,var (tcp-stream-connect ,address ,port))
       ,@body))
  