Eliminate unused definition.

diff --git a/v7/src/sos/slot.scm b/v7/src/sos/slot.scm
index b3f699007e6e1805c84b3e3a5b12f867c63d71da..eb438f984e60edecf39b406177293e1a09e9cd3d 100644 (file)
--- 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)))