diff --git a/code/lispinit.lisp b/code/lispinit.lisp index 6b1a18a999f2b3a1ddb0621f1e89a8af4fdd5a4d..2da0f517fba5c33e142371cc89fa2c9a923dc421 100644 --- a/code/lispinit.lisp +++ b/code/lispinit.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.10 1990/08/24 18:11:26 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.11 1990/09/06 19:42:41 wlott Exp $ ;;; ;;; Initialization and low-level interrupt support for the Spice Lisp system. ;;; Written by Skef Wholey and Rob MacLachlan. @@ -184,7 +184,6 @@ ;;;; Server stuff: -#| ;;; ;;; There is a fair amount of stuff to support Matchmaker RPC servers ;;; and asynchonous message service. RPC message service needs to be @@ -236,11 +235,13 @@ ;;; If no such operation defined, signal an error. ;;; (defun default-default-handler (object) + #+nil (alien-bind ((msg (server-message-msg server-message))) (error "No operation for ID ~D on ~S in ~S." (alien-access (mach:msg-id (alien-value msg))) object (car (gethash (alien-access (mach:msg-localport (alien-value msg))) - *port-table*))))) + *port-table*)))) + (error "You lose, object: ~S" object)) ;;; MAP-XWINDOW and MAP-PORT return as multiple values the object and @@ -318,7 +319,6 @@ ;;; (defsetf object-set-operation %set-object-set-operation "Sets the handler function for an object set operation.") -|#