/[eclipse]/eclipse/lib/sm/sm.lisp
ViewVC logotype

Diff of /eclipse/lib/sm/sm.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by ihatchondo, Sun Feb 22 23:56:46 2009 UTC revision 1.14 by ihatchondo, Tue Nov 3 11:41:52 2009 UTC
# Line 631  RestartNever           3 Line 631  RestartNever           3
631    (declare (type (or null client-id) previous-id))    (declare (type (or null client-id) previous-id))
632    (declare (type boolean must-authenticate-p))    (declare (type boolean must-authenticate-p))
633    (unless network-ids    (unless network-ids
634      (setf network-ids (list (get-environment-variable)))      (setf network-ids (ice-lib:split-ids (or (get-environment-variable) "")))
635      (when (null (car network-ids))      (unless network-ids
636        (signal-sm-error "SESSION_MANAGER environment variable is undefined.")))        (signal-sm-error "SESSION_MANAGER environment variable is undefined.")))
637    (let ((sm-conn (make-instance 'sm-connection)))    (let ((sm-conn (make-instance 'sm-connection)))
638      (open-connection      (open-connection

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

  ViewVC Help
Powered by ViewVC 1.1.5