LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760031670. :SYSTEM-TYPE :LOGICAL :VERSION 4. :TYPE "LISP" :NAME "MEM-MGT-OBSOLETE" :DIRECTORY ("REL3-SOURCE" "MEMORY-MANAGEMENT") :SOURCE-PATTERN "( :DIRECTORY (\"REL3-SOURCE\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :VERSION-LIMIT 0. :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2758727982. :AUTHOR "REL3" :LENGTH-IN-BYTES 2233. :LENGTH-IN-BLOCKS 3. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            ;;; -*-  Mode:COMMON-LISP; Package:SYSTEM-INTERNALS; Base:8; -*-;;;                           RESTRICTED RIGHTS LEGEND;;;Use, duplication, or disclosure by the Government is subject to;;;restrictions as set forth in subdivision (b)(3)(ii) of the Rights in;;;Technical Data and Computer Software clause at 52.227-7013.;;;                     TEXAS INSTRUMENTS INCORPORATED.;;;                              P.O. BOX 2909;;;                           AUSTIN, TEXAS 78769;;;                                 MS 2151;;; Copyright (C) 1987 Texas Instruments Incorporated. All rights reserved.;;; This file contains obsolete MEMORY-MANAGEMENT functions.;;; Change History:;;;;;;  Date    Patcher Patch#   Description;;; ------------------------------------------------------------------------------;;; 02-19-87   ab      --     Original;;;;;;;;; Functions(make-obsolete get-free-address-space 'usable-address-space)(make-obsolete get-free-space-size 'usable-address-space)(DEFUN set-all-swap-recommendations (&rest ignore)  nil)(make-obsolete set-all-swap-recommendations nil)(DEFUN set-swap-recommendations-of-area (&rest ignore)  nil)(make-obsolete set-swap-recommendations-of-area nil)(DEFUN set-scavenger-ws (&rest ignore)  nil)(make-obsolete set-scavenger-ws nil)(DEFUN clean-up-static-area (&rest ignore)  nil)(make-obsolete clean-up-static-area nil)(DEFUN gc-flip-maybe (&rest ignore)  nil)(make-obsolete gc-flip-maybe nil);;;;;; Variables(DEFVAR gc-page-cons-alarm-mark 0)(compiler:make-variable-obsolete gc-page-cons-alarm-mark nil)  (DEFVAR gc-flip-ratio nil)(compiler:make-variable-obsolete gc-flip-ration nil)(DEFVAR gc-flip-minimum-ratio nil)(compiler:make-variable-obsolete gc-flip-minimum-ration nil)(DEFVAR gc-reclaim-immediately nil)(compiler:make-variable-obsolete gc-reclaim-immediately nil);;(DEFUN test-obsolete-stuff ();;  (SETQ gc-page-cons-alarm-mark nil;;  gc-flip-ratio nil;;gc-flip-minimum-ratio nil;;gc-reclaim-immediately nil);;  (get-free-address-space);;  (get-free-space-size);;  (gc-flip-maybe);;  (set-all-swap-recommendations);;  (set-swap-recommendations-of-area);;  (set-scavenger-ws);;  (clean-up-static-area))a-regions-static (SYMBOL-VALUE area)))))(DEFPARAMETER Gc-System-Build-Forms-After      '((gc-on)));;;;;; TGC Start-Young-Consing Support(DEFPARAMETER *tgc-non-generation-0-consers*      '((zwei:zwei-area 1)(compiler:macro-compiled-program 1)(nr-sym 3)(*kernel-symbol-area* 3)(*user-symbol-area* 3)(*compiler-symbol-area* 3)));;;;;; Hash-Table support.;;; This function is called by many of the HASH routines.(DEFUN gc-need-rehash-p (hash-table)  "Used to determine if a hash-table needs a rehash because of a GC flip."  (AND (/= (hash-table-gc-generation-number hash-table) %gc-generation-number)       (neq (hash-table-hash-function hash-table ) 'equal-hash)));;;;;; Idle Scavenge support.;;; This function is called by scheduler when it has nothing else to do.(DEFUN gc-maybe-scavenge ()  (WHEN 