-;; -*- coding: windows-1252 -*- 
+;; -*- Coding: windows-1252 -*- 
 ;;  COPYRIGHT (C) PLANISWARE 2016
 ;;
 ;;  All Rights Reserved

(defvar *host-regexp* "^https?://\\([^/]+\\)/")

(defun start-connect-is (desc)
  (with-current-buffer "*common-lisp*"
    (when (and (fi::ensure-lep-connection)
	       (fi:eval-in-lisp "(cl:if (cl:fboundp 'http-utils::declare-additional-log-stream) t nil)"))

		      (write-region (point-min) (point-max) file))
		    (setq *script-compilation-mode* :remote)
		    (fi:start-interface-via-file host "*common-lisp*" file)
		    (start-connect-is url))
		   (t
		    (message "There was an error connecting to the Intranet server")))))
