/[mcclim]/mcclim/ports.lisp
ViewVC logotype

Diff of /mcclim/ports.lisp

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

revision 1.33 by adejneka, Fri Jun 14 06:14:43 2002 UTC revision 1.34 by adejneka, Thu Jul 4 06:57:43 2002 UTC
# Line 63  Line 63 
63      :accessor port-event-process      :accessor port-event-process
64      :documentation "In a multiprocessing environment, the particular process      :documentation "In a multiprocessing environment, the particular process
65                      reponsible for calling PROCESS-NEXT-EVENT in a loop.")                      reponsible for calling PROCESS-NEXT-EVENT in a loop.")
66    
67     (lock     (lock
68      :initform (make-recursive-lock "port lock")      :initform (make-recursive-lock "port lock")
69      :accessor port-lock)      :accessor port-lock)
70     (event-count :initform 0)     (event-count :initform 0)
71       (text-style-mappings :initform (make-hash-table :test #'eq)
72                            :reader port-text-style-mappings)
73     ))     ))
74    
75  (defun find-port (&key (server-path *default-server-path*))  (defun find-port (&key (server-path *default-server-path*))

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

  ViewVC Help
Powered by ViewVC 1.1.5