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