;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 126.120
;;; Reason:
;;;  Recompiled STORAGE-DEFS DEFSUBSTs with properly folded-in constants.
;;; Written 21-Oct-88 22:43:37 by keith (Keith Corbett) at site Gigamos Cambridge
;;; while running on Johannes Brahms from band 1
;;; with Experimental System 126.119, Experimental ZWEI 126.21, Experimental ZMail 74.9, Experimental Local-File 76.0, Experimental File-Server 25.0, Experimental Lambda-Diag 18.0, Experimental Unix-Interface 15.0, Experimental Tape 26.4, Microcode 1762, SDU Boot Tape 3.14, SDU ROM 103, 10/17.



; From file DJ: L.SYS; STORAGE-DEFS.LISP#16 at 21-Oct-88 22:43:53
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; STORAGE-DEFS  "


(defsubst %area-type (region)
  (%logldb %%region-space-type (%area-region-bits region)))

))

; From file DJ: L.SYS; STORAGE-DEFS.LISP#16 at 21-Oct-88 22:43:56
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; STORAGE-DEFS  "


(defsubst %area-flip-enable (region)
  (%logldb %%region-flip-enable (%area-region-bits region)))

))

; From file DJ: L.SYS; STORAGE-DEFS.LISP#16 at 21-Oct-88 22:43:57
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; STORAGE-DEFS  "


(defsubst %area-scavenge-enable (region)
  (%logldb %%region-scavenge-enable (%area-region-bits region)))

))

; From file DJ: L.SYS; STORAGE-DEFS.LISP#16 at 21-Oct-88 22:43:58
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; STORAGE-DEFS  "


(defsubst %area-scavenge-carefully (region)
  (%logldb %%region-scavenge-carefully (%area-region-bits region)))

))

; From file DJ: L.SYS; STORAGE-DEFS.LISP#16 at 21-Oct-88 22:43:59
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; STORAGE-DEFS  "


(defsubst %area-volatility (region)
  (%logldb %%region-volatility (%area-region-bits region)))

))

; From file DJ: L.SYS; STORAGE-DEFS.LISP#16 at 21-Oct-88 22:44:00
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; STORAGE-DEFS  "


(defsubst %area-swap-recommendations (region)
  (%logldb %%region-swapin-quantum (%area-region-bits region)))

))

; From file DJ: L.SYS; STORAGE-DEFS.LISP#16 at 21-Oct-88 22:44:01
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; STORAGE-DEFS  "


(defsubst %area-map-status (region)
  (%logldb %%region-map-status-code (%area-region-bits region)))

))

; From file DJ: L.SYS; STORAGE-DEFS.LISP#16 at 21-Oct-88 22:44:02
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; STORAGE-DEFS  "


(defsubst %region-type (region)
  (%logldb %%region-space-type (%region-bits region)))

))

; From file DJ: L.SYS; STORAGE-DEFS.LISP#16 at 21-Oct-88 22:44:03
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; STORAGE-DEFS  "


(defsubst %region-representation-type (region)
  (%logldb %%region-representation-type (%region-bits region)))

))

; From file DJ: L.SYS; STORAGE-DEFS.LISP#16 at 21-Oct-88 22:44:04
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; STORAGE-DEFS  "


(defsubst %region-flip-enable (region)
  (%logldb %%region-flip-enable (%region-bits region)))

))

; From file DJ: L.SYS; STORAGE-DEFS.LISP#16 at 21-Oct-88 22:44:05
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; STORAGE-DEFS  "


(defsubst %region-scavenge-enable (region)
  (%logldb %%region-scavenge-enable (%region-bits region)))

))

; From file DJ: L.SYS; STORAGE-DEFS.LISP#16 at 21-Oct-88 22:44:06
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; STORAGE-DEFS  "


(defsubst %region-scavenge-carefully (region)
  (%logldb %%region-scavenge-carefully (%region-bits region)))

))

; From file DJ: L.SYS; STORAGE-DEFS.LISP#16 at 21-Oct-88 22:44:07
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; STORAGE-DEFS  "


(defsubst %region-volatility (region)
  (%logldb %%region-volatility (%region-bits region)))

))

; From file DJ: L.SYS; STORAGE-DEFS.LISP#16 at 21-Oct-88 22:44:08
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; STORAGE-DEFS  "


(defsubst %region-swap-recommendations (region)
  (%logldb %%region-swapin-quantum (%region-bits region)))

))