(defun process-coin-server-request (stream)

  (let ((request (read stream)))

    (case request

      (transfer (process-transfer-request (cdr request) stream))

      (execute (process-execute-request (cdr request) stream))

      (blocks (process-blocks-request (cdr request) stream)))))

Also redefines BLOCK and so we probably need to declare shadowing at the top. 

Not sure what the quickload stuff was trying to accomplish, but my resident version of Ironclad kept shadowing anything imported by quickload. No SHA3 digest in my resident version, so I replaced it (for now) with the bleeding edge version from GitHub. That worked, as far as I can tell.