From 956c0744834a1256ba563a3773e873772df2537a Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 19 Jun 1997 21:17:12 +0000
Subject: [PATCH] Eliminate unused definition.

---
 v7/src/sos/slot.scm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/v7/src/sos/slot.scm b/v7/src/sos/slot.scm
index b3f699007..eb438f984 100644
--- a/v7/src/sos/slot.scm
+++ b/v7/src/sos/slot.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: slot.scm,v 1.3 1997/06/17 08:40:02 cph Exp $
+;;; $Id: slot.scm,v 1.4 1997/06/19 21:17:12 cph Exp $
 ;;;
 ;;; Copyright (c) 1995-96 Massachusetts Institute of Technology
 ;;;
@@ -73,9 +73,6 @@
 (define (slot-initial-value? slot)
   (not (eq? record-slot-uninitialized (slot-initial-value slot))))
 
-(define (slot-allocation slot)
-  (slot-property slot 'ALLOCATION 'INSTANCE))
-
 (define (guarantee-slot-descriptor slot name)
   (if (not (slot-descriptor? slot))
       (error:wrong-type-argument slot "slot descriptor" name)))
-- 
2.25.1