How to load staple server in clasp

You need same changes not yet in quicklisp, so

• Put the following in ~/quicklisp/local-projects/
  • bordeaux-threads (https://github.com/sionescu/bordeaux-threads.git , master). Does not seem to be updated in quicklisp, unless a new release of bordeaux-threads is made
  • usocket from https://github.com/clasp-developers/usocket (pull request to uscoket has been made)
  • hunchentoot-v1.2.38 with the following change in set-timeouts.lisp

(defun set-timeouts (usocket read-timeout write-timeout)
#+:(or abcl clasp)
  (when write-timeout
    (warn "Unimplemented."))
  #-(or :clisp :allegro :openmcl :sbcl :lispworks :cmu :ecl :abcl :clasp)
  (not-implemented 'set-timeouts))

• To load:
  • (load "~/quicklisp/setup.lisp")
  • (asdf:register-immutable-system :eclector)
  • (ql:quickload "staple-server" :verbose t)
• after loading Staple, apply the following hotfix until #698 is fixed:

(defmethod plump-dom:serialize-object ((nodes array))
  (loop for index from 0 below (length nodes)
        do (plump-dom:serialize-object (aref nodes index))))

• To start (staple-server:start)
• To stop (staple-server:stop)