Remove a style-warning from sb-bsd-sockets.asd when #-sb-testing-contrib.
Fix (documentation #'function t)

(defun test () "xx" nil)
(setf (documentation 'test 'function) "test")
(list (documentation #'test t) (documentation 'test 'function)))
returned ("xx" "test").