;;; -*- Mode: Lisp -*-
;;;
;;; (c) Copyright 1984 - Lisp Machine, Inc.
;;;


(package-declare lambda global 10000.
   ()
 (SHADOW
 area-list
 Q-DATA-TYPES DTP-TRAP DTP-NULL DTP-FREE 
 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-SMALL-FLONUM DTP-SELECT-METHOD 
 DTP-INSTANCE DTP-INSTANCE-HEADER DTP-ENTITY
 DTP-STACK-CLOSURE DTP-SELF-REF-POINTER
 DTP-CHARACTER
 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-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
))