[Eclipse-cvs] CVS eclipse/lib/sm

[ihatchondo]

Update of /project/eclipse/cvsroot/eclipse/lib/sm
In directory cl-net:/tmp/cvs-serv12924/lib/sm

Modified Files:
	sm.lisp 
Log Message:
Fix: missing coma separated parsing was missing when passing the SESSION_MANAGER value to the underliying ice-lib:open-connection

--- /project/eclipse/cvsroot/eclipse/lib/sm/sm.lisp	2009/02/22 23:56:46	1.13
+++ /project/eclipse/cvsroot/eclipse/lib/sm/sm.lisp	2009/11/03 11:41:52	1.14
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SM-LIB; -*-
-;;; $Id: sm.lisp,v 1.13 2009/02/22 23:56:46 ihatchondo Exp $
+;;; $Id: sm.lisp,v 1.14 2009/11/03 11:41:52 ihatchondo Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: SM Library
 ;;;   Created: 2004 01 15 15:28
@@ -631,8 +631,8 @@
   (declare (type (or null client-id) previous-id))
   (declare (type boolean must-authenticate-p))
   (unless network-ids
-    (setf network-ids (list (get-environment-variable)))
-    (when (null (car network-ids))
+    (setf network-ids (ice-lib:split-ids (or (get-environment-variable) "")))
+    (unless network-ids
       (signal-sm-error "SESSION_MANAGER environment variable is undefined.")))
   (let ((sm-conn (make-instance 'sm-connection)))
     (open-connection