   (let ((case-fold-search nil))
     (cond ((and (stringp string)
 		(string-match "\\`[[:upper:]-]+([0-9]+): \\'" string));; exit when we go back to the top level (ie :res, :pop, etc)
-	   (delete-process proc))
+	   ;;(delete-process proc)
+	   )
 	  ((and (stringp string)
 		(string-match ":EXIT-JS" string)) ;; exit when we read this, returned by the compilation functions
+	   (message "deleting %s %s" proc string)
+	   (message "send to filter %s" (substring string 0 (string-match ":EXIT-JS" string)))
 	   (fi::subprocess-filter proc (substring string 0 (string-match ":EXIT-JS" string)))
-	   (delete-process proc))
+	   ;;(delete-process proc)
+	   )	  
 	  (t
 	   (fi::subprocess-filter proc string)))))
 

	      (setq proc
		    (fi:open-lisp-listener
		     -1
		     *ojs-compilation-buffer-name*
		     )))
	    (set-process-filter proc 'ojs-compilation-filter)
	    (cond ((eq type :compile)
		   (process-send-string *ojs-compilation-buffer-name* (format "(:rjs \"%s\")\n" script))

;;;; (:require-patch "")
;;;; HISTORY :
;;;; $Log$
;;;; Revision 3.21  2015/09/17 14:37:39  troche
;;;; * new function to check js syntax
;;;; * better ctrl+c . in js modes
;;;;
;;;; Revision 3.20  2015/07/20 16:41:40  mgautier
;;;; - lock file with the user using emacs
;;;;
