From 9096a1f1faeacafe3ec2ee530a1a2daa8f922ec8 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 6 Sep 1990 19:42:41 +0000
Subject: [PATCH] Re-enabled the object set stuff.

---
 code/lispinit.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/code/lispinit.lisp b/code/lispinit.lisp
index 6b1a18a99..2da0f517f 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.")
-|#
 
 
 
-- 
GitLab