LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760031656. :SYSTEM-TYPE :LOGICAL :VERSION 11. :TYPE "LISP" :NAME "DEFSYSTEM" :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 2758727723. :AUTHOR "REL3" :LENGTH-IN-BYTES 3369. :LENGTH-IN-BLOCKS 4. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ;;; -*- Mode:Common-Lisp; Base:10 -*-;;;      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) 1985,1987 Texas Instruments Incorporated. All rights reserved.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; This is for the whole 9 yards.(DEFSYSTEM Memory-Management  (:name "Memory-Management")  (:pathname-default "SYS: MEMORY-MANAGEMENT;")  (:warnings-pathname-default "SYS: CWARNS; memory-management.lisp")  (:component-systems VIRTUAL-MEMORY      GC      MEMORY-AUX)  );; This defsystem contains the files that go in the COLD BUILD.(DEFSYSTEM Virtual-Memory  (:name "Virtual-Memory")  (:pathname-default "SYS: MEMORY-MANAGEMENT;")  (:patchable "SYS: PATCH.VIRTUAL-MEMORY;" patch)  (:not-in-disk-label)  (:warnings-pathname-default "SYS: CWARNS; virtual-memory.lisp")  (:package SI)  ;;  ;; MODULES  (:module defs ("area-defs" "page-defs"))  (:module area-files ("areas"))  (:module paging-files ("page" "page-device" "vm-boot"))  (:module disk-save ("disk-save-restore" "disk-save-internal"))  ;;  ;; DEPENDENCIES  (:compile-load defs)  (:compile-load-init area-files      (defs)      (:fasload defs)      (:fasload defs))  (:compile-load-init paging-files      (defs)      (:fasload defs)      (:fasload defs))  (:compile-load-init disk-save      (defs)      (:fasload defs)      (:fasload defs))  ) (DEFSYSTEM gc  (:name "GC")  (:pathname-default "SYS: MEMORY-MANAGEMENT;")  (:patchable "SYS: PATCH.GC;" patch)  (:warnings-pathname-default "SYS: CWARNS; gc.lisp")  (:package SI)  ;;  ;; MODULES  (:module vm-defs (virtual-memory defs))  (:module gc-defs ("gc-defs"))  (:module gc ("gc-area-support" "gc"       "gc-system-interfaces"))  (:module daemons ("daemons"))  (:module debug ("memory-debug"))  (:module obsolete ("mem-mgt-obsolete"))  ;;  ;; DEPENDENCIES  (:compile-load obsolete)  (:compile-load vm-defs)  (:compile-load gc-defs)  (:compile-load-init gc      (vm-defs gc-defs)      (:fasload vm-defs gc-defs)      (:fasload vm-defs gc-defs))  (:compile-load-init daemons      (gc-defs gc)      (:fasload gc-defs gc)      (:fasload gc-defs gc))  (:compile-load-init debug      (gc-defs)      (:fasload gc-defs)      (:fasload gc-defs))  )(DEFSYSTEM memory-aux  (:name "memory-aux")  (:pathname-default "SYS: MEMORY-MANAGEMENT;")  (:patchable "SYS: PATCH.MEMORY-AUX;" patch)  (:not-in-disk-label)  (:warnings-pathname-default "SYS: CWARNS; memory-aux.lisp")  (:package SI)  ;;  ;; MODULES  (:module vm-defs (virtual-memory defs))  (:module paging-aux ("physical-memory" "paging-process"))  (:module debug ("memory-debug"))  (:module monitors ("monitors"))  (:module obsolete ("mem-mgt-obsolete"))  ;;  ;; DEPENDENCIES  (:compile-load monitors)  (:compile-load obsolete)  (:compile-load vm-defs)  (:compile-load-init paging-aux      (vm-defs)      (:fasload vm-defs)      (:fasload vm-defs))  (:compile-load-init debug      (vm-defs)      (:fasload vm-defs)      (:fasload vm-defs))  )  number of regions created since last boot.;;;;;; %Page-Cons-Alarm     (A-Memory variable);;;    Used in Make-region (in Ucode Storage-Allocation).  When a new region;;;    is created, the number of pages in the region is added to this variable.;;;    Also 0 at boot, so indicates the number of pages ASSIGNED to regions;;;    (not necessarily allocated to objects) since boot.  This can give us;;;    a measure of the number of QUANTUMS that have been allocated (to help;;;    indicate a fragmented address space map).;;;;;; %Count-Fresh-Pages   (Meter);;;    Used in Ucode Page-Fault code.  Incremented every time page-fault is;;;    entered in order to create a new page (as a result of consing).  Also;;;    0