/[cmucl]/src/code/lispinit.lisp
ViewVC logotype

Diff of /src/code/lispinit.lisp

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

revision 1.10 by wlott, Fri Aug 24 18:11:26 1990 UTC revision 1.11 by wlott, Thu Sep 6 19:42:41 1990 UTC
# Line 184  Line 184 
184    
185    
186  ;;;; Server stuff:  ;;;; Server stuff:
 #|  
187  ;;;  ;;;
188  ;;;    There is a fair amount of stuff to support Matchmaker RPC servers  ;;;    There is a fair amount of stuff to support Matchmaker RPC servers
189  ;;; and asynchonous message service.  RPC message service needs to be  ;;; and asynchonous message service.  RPC message service needs to be
# Line 236  Line 235 
235  ;;;    If no such operation defined, signal an error.  ;;;    If no such operation defined, signal an error.
236  ;;;  ;;;
237  (defun default-default-handler (object)  (defun default-default-handler (object)
238      #+nil
239    (alien-bind ((msg (server-message-msg server-message)))    (alien-bind ((msg (server-message-msg server-message)))
240      (error "No operation for ID ~D on ~S in ~S."      (error "No operation for ID ~D on ~S in ~S."
241             (alien-access (mach:msg-id (alien-value msg))) object             (alien-access (mach:msg-id (alien-value msg))) object
242             (car (gethash (alien-access (mach:msg-localport (alien-value msg)))             (car (gethash (alien-access (mach:msg-localport (alien-value msg)))
243                           *port-table*)))))                           *port-table*))))
244      (error "You lose, object: ~S" object))
245    
246    
247  ;;; MAP-XWINDOW and MAP-PORT return as multiple values the object and  ;;; MAP-XWINDOW and MAP-PORT return as multiple values the object and
# Line 318  Line 319 
319  ;;;  ;;;
320  (defsetf object-set-operation %set-object-set-operation  (defsetf object-set-operation %set-object-set-operation
321    "Sets the handler function for an object set operation.")    "Sets the handler function for an object set operation.")
 |#  
322    
323    
324    

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

  ViewVC Help
Powered by ViewVC 1.1.5