Method: (LOAD-SERVER-APPLICATIONS STANDARD-SERVER PATHNAME)

Source

(defmethod load-server-applications ((server standard-server) (dump-file pathname))
  (let ((*server-dump-placeholder* nil))
    (load dump-file)
    (unless *server-dump-placeholder*
      (error "~A didn't set the *server-dump-placeholder* variable." dump-file))
    (setf (server.applications server) *server-dump-placeholder*))
  server)