;;; -*- Mode:LISP; Package:SYSTEM-INTERNALS; Base:10; Readtable:ZL -*-

;;; this file is loaded as part of QLD to set up the lambda package
;;; for those files which need it. 24-Oct-86 12:19:04 -gjc

(or (find-package "LAMBDA")
    (make-package "LAMBDA" :size 10000.))

(alter-package "LAMBDA"
	       :nicknames '("LAM")
	       :size 10000.
	       :shadow
	      '(
		"AREA-LIST"
		"Q-DATA-TYPES" "DTP-TRAP" "DTP-NULL" "DTP-UNRECONCILED" "DTP-FREE"	;both for now.
		"DTP-SYMBOL" "DTP-SYMBOL-HEADER" "DTP-FIX" "DTP-EXTENDED-NUMBER" "DTP-HEADER"
		"DTP-GC-FORWARD" "DTP-EXTERNAL-VALUE-CELL-POINTER" "DTP-ONE-Q-FORWARD"
		"DTP-HEADER-FORWARD" "DTP-BODY-FORWARD" "DTP-LOCATIVE" "DTP-LIST" 
		"DTP-U-ENTRY" "DTP-FEF-POINTER" "DTP-ARRAY-POINTER" "DTP-ARRAY-HEADER" 
		"DTP-STACK-GROUP" "DTP-CLOSURE" "DTP-INDEXED-FORWARD" "DTP-SELECT-METHOD" 
		"DTP-INSTANCE" "DTP-INSTANCE-HEADER" "DTP-ENTITY" "DTP-STACK-CLOSURE"
		"DTP-SELF-REF-POINTER" "DTP-CHARACTER" "DTP-RPLACD-FORWARD" "DTP-SMALL-FLONUM"
		
		"Q-CDR-CODES" "CDR-NORMAL" "CDR-ERROR" "CDR-NIL" "CDR-NEXT"
		"Q-FIELD-VALUES" "%%Q-CDR-CODE" "%%Q-BOXED-SIGN-BIT"
		"%%Q-DATA-TYPE" "%%Q-POINTER"  "%%Q-POINTER-WITHIN-PAGE"
		"%%Q-TYPED-POINTER" "%%Q-ALL-BUT-TYPED-POINTER"
		"%%Q-ALL-BUT-POINTER" "%%Q-ALL-BUT-CDR-CODE"
		"%%Q-HIGH-HALF" "%%Q-LOW-HALF"
		"%%CH-FONT" "%%CH-CHAR" "%%KBD-CHAR" "%%KBD-CONTROL-META"
		"%%KBD-CONTROL" "%%KBD-META" "%%KBD-SUPER" "%%KBD-HYPER"
		"%%KBD-MOUSE" "%%KBD-MOUSE-BUTTON" "%%KBD-MOUSE-N-CLICKS"
		"%%BYTE-SPECIFIER-POSITION"  "%%BYTE-SPECIFIER-SIZE" 
		
		"LINEAR-PDL-FIELDS-VALUES"
		"%%LP-CLS-SELF-MAP-PROVIDED" 
		"%%LP-CLS-ATTENTION"
		"%%LP-CLS-TRAP-ON-EXIT" 
		"%%LP-CLS-ADI-PRESENT"
		"%%LP-CLS-DESTINATION" 
		"%%LP-CLS-DESTINATION-AND-ADI" 
		"%%LP-CLS-DELTA-TO-OPEN-BLOCK"
		"%%LP-CLS-DELTA-TO-ACTIVE-BLOCK"
		"%%LP-EXS-MICRO-STACK-SAVED"
		"%%LP-EXS-PC-STATUS"
		"%%LP-EXS-BINDING-BLOCK-PUSHED"
		"%%LP-EXS-EXIT-PC"
		"%%LP-ENS-LCTYP"
		"%%LP-ENS-UNSAFE-REST-ARG"
		"%%LP-ENS-NUM-ARGS-AND-UNSAFE-FLAG"
		"%%LP-ENS-UNSAFE-REST-ARG-1" 
		"%%LP-ENS-ENVIRONMENT-POINTER-POINTS-HERE" 
		"%%LP-ENS-NUM-ARGS-SUPPLIED" 
		"%%LP-ENS-MACRO-LOCAL-BLOCK-ORIGIN" 
		
		"INSTANCE-DESCRIPTOR-OFFSETS" 
		"%INSTANCE-DESCRIPTOR-HEADER"
		"%INSTANCE-DESCRIPTOR-RESERVED"
		"%INSTANCE-DESCRIPTOR-SIZE"
		"%INSTANCE-DESCRIPTOR-BINDINGS"
		"%INSTANCE-DESCRIPTOR-FUNCTION"
		"%INSTANCE-DESCRIPTOR-TYPENAME"
		"%INSTANCE-DESCRIPTOR-MAPPING-TABLE-ALIST"
		"%INSTANCE-DESCRIPTOR-ALL-INSTANCE-VARIABLES"
		"%INSTANCE-DESCRIPTOR-DEPENDS-ON-ALL"

		"%%ARRAY-DISPLACED-BIT"
		"%%ARRAY-NUMBER-DIMENSIONS"
		"%%ARRAY-LONG-LENGTH-FLAG"
		"%%ARRAY-INDEX-LENGTH-IF-SHORT"
		"%%FEF-ARG-SYNTAX"
		"%%FEF-DES-DT"
		"%%FEF-INIT-OPTION"
		"%%FEF-QUOTE-STATUS"
		"%%FEF-SPECIALNESS"
		"%%FEFH-ARGS-FOR-FANL"
		"%%FEFH-ARGS-FOR-FAWL"
		"%%FEFH-FAST-ARG"
		"%%FEFH-GET-SELF-MAPPING-TABLE"
		"%%FEFH-LOCALS-FOR-FAWL"
		"%%FEFH-LOCALS-FOR-VAWL"
		"%%FEFH-MAX-ARGS-FOR-VANL"
		"%%FEFH-MIN-ARGS-FOR-VANL"
		"%%FEFH-MAX-ARGS-FOR-VAWL"
		"%%FEFH-MIN-ARGS-FOR-VAWL"
		"%%FEFH-NO-ADL"
		"%%FEFH-SV-BIND"
		"%%FEFHI-MS-ARG-DESC-ORG"
		"%%FEFHI-MS-BIND-DESC-LENGTH"
		"%%FEFHI-MS-DEBUG-INFO-PRESENT"
		"%%FEFHI-SVM-ACTIVE"
		"%%FEFHI-SVM-BITS"
		"%%FEFSL-NO-ADL"
		"%%HEADER-REST-FIELD"
		"%%HEADER-TYPE-FIELD"
		"%%PHT1-AGE"
		"%%PHT1-MODIFIED-BIT"
		"%%PHT1-SCAVENGER-WS-FLAG"
		"%%PHT1-VIRTUAL-PAGE-NUMBER"
		"%%PHT2-ACCESS-AND-STATUS-BITS"
		"%%PHT2-VOLATILITY"
		"%%REGION-FLIP-ENABLE"
		"%%REGION-MAP-STATUS-CODE"
		"%%REGION-META-BITS"
		"%%REGION-SCAVENGE-CAREFULLY"
		"%%REGION-SCAVENGE-ENABLE"
		"%%REGION-SWAPIN-QUANTUM"
		"%%REGION-VOLATILITY"
		"%%SELF-REF-INDEX"
		"%%SELF-REF-MAP-LEADER-FLAG"
		"%%SELF-REF-RELOCATE-FLAG"
		"%%SG-ST-CURRENT-STATE"
		"%%SG-ST-FOOTHOLD-EXECUTING"
		"%%SG-ST-IN-SWAPPED-STATE"
		"%%SG-ST-PROCESSING-ERROR"
		"%%VIRTUAL-PAGE-FIRST-HEADER"
		"%%VIRTUAL-PAGE-INITIAL-QS"
		"%%VIRTUAL-PAGE-STRUCTURE-HANDLE"
		"%FEF-NAME-PRESENT"
		"%FEFHI-FAST-ARG-OPT"
		"%FEFHI-SV-BITMAP"
		"%HEADER-TYPE-BIGNUM"
		"%HEADER-TYPE-COMPLEX"
		"%HEADER-TYPE-FAST-FEF-FIXED-ARGS-NO-LOCALS"
		"%HEADER-TYPE-FAST-FEF-FIXED-ARGS-WITH-LOCALS"
		"%HEADER-TYPE-FAST-FEF-VAR-ARGS-NO-LOCALS"
		"%HEADER-TYPE-FAST-FEF-VAR-ARGS-WITH-LOCALS"
		"%HEADER-TYPE-FEF"
		"%HEADER-TYPE-FLONUM"
		"%HEADER-TYPE-RATIONAL"
		"%PHT-MAP-STATUS-MAP-NOT-VALID"
		"%PHT-MAP-STATUS-MAR"
		"%PHT-MAP-STATUS-META-BITS-ONLY"
		"%PHT-MAP-STATUS-READ-WRITE-FIRST"
		"%REGION-SPACE-OLD"
		"%SYS-COM-AREA-ORIGIN-PNTR"
		"%SYS-COM-FREE-AREA#-LIST"
		"%SYS-COM-FREE-REGION#-LIST"
		"%SYS-COM-MAJOR-VERSION"
		"%SYS-COM-NUMBER-AREAS"
		"%SYS-COM-NUMBER-REGIONS"
		"%SYS-COM-OBARRAY-PNTR"
		"%SYS-COM-UNIBUS-INTERRUPT-LIST"
		"%SYS-COM-WIRED-SIZE"
		"%UNIBUS-CHANNEL-CSR-ADDRESS"
		"%UNIBUS-CHANNEL-CSR-BITS"
		"%UNIBUS-CHANNEL-DATA-ADDRESS"
		"%UNIBUS-CHANNEL-LINK"
		"%UNIBUS-CHANNEL-VECTOR-ADDRESS"
		"PQ1M-PAGE-OFFSET"
		"QUANTUM-MAP-OFFSET-IN-TABLES"
		"SG-STATE"

		))