Method: (PRINT-OBJECT STANDARD-SERVER T)

Source

(defmethod print-object ((server standard-server) stream)
  (print-unreadable-object (server stream :type t :identity t)
    (format stream "~S ~S" (type-of (server.backend server)) (length (server.applications server)))))