From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 4 Oct 1990 10:21:24 +0000 (+0000)
Subject: Use one ".free" file to cache data for entire package model.  Compress
X-Git-Tag: 20090517-FFI~11149
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e4d657514c7e1518c60ae00596ef07a6170ffcbb;p=mit-scheme.git

Use one ".free" file to cache data for entire package model.  Compress
the data stored in this file by eliminating duplicates and using
vectors instead of lists.
---

diff --git a/v7/src/cref/object.scm b/v7/src/cref/object.scm
index 19b5879b6..7736cf324 100644
--- a/v7/src/cref/object.scm
+++ b/v7/src/cref/object.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/cref/object.scm,v 1.2 1988/10/28 07:03:20 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/cref/object.scm,v 1.3 1990/10/04 10:21:24 cph Rel $
 
-Copyright (c) 1988 Massachusetts Institute of Technology
+Copyright (c) 1988, 1990 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -55,7 +55,7 @@ MIT in each case. |#
   (primitive-package false read-only true)
   (packages false read-only true)
   (extra-packages false read-only true)
-  (default-pathname false read-only true))
+  (pathname false read-only true))
 
 (define-structure (package
 		   (named (string->symbol "#[(cross-reference)package]"))