From 71f14e0d2dd30473c028827a91cf1613a9475d68 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 30 Aug 1990 16:38:11 +0000
Subject: [PATCH] Don't search read only space for symbols, 'cause there will
 never be any symbols in read only space.

---
 ldb/parse.c | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

diff --git a/ldb/parse.c b/ldb/parse.c
index bb19fc06f..219184521 100644
--- a/ldb/parse.c
+++ b/ldb/parse.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/parse.c,v 1.4 1990/05/12 16:41:58 ch Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/parse.c,v 1.5 1990/08/30 16:38:11 wlott Exp $ */
 #include <stdio.h>
 #include <ctype.h>
 #include <signal.h>
@@ -227,15 +227,6 @@ lispobj *result;
 {
     int count;
 
-    /* Search read only space */
-    *result = (lispobj) read_only_space;
-    count = ((lispobj *) SymbolValue(READ_ONLY_SPACE_FREE_POINTER) -
-	      read_only_space);
-    if (search_for_symbol(name, result, &count)) {
-	*result |= type_OtherPointer;
-        return TRUE;
-    }
-
     /* Search static space */
     *result = (lispobj) static_space;
     count = ((lispobj *) SymbolValue(STATIC_SPACE_FREE_POINTER) -
-- 
GitLab