Skip to content
Snippets Groups Projects
exports.lisp 102 KiB
Newer Older
1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306
             "*CHARACTER-ATTRIBUTE-NAMES*" "*COMMAND-NAMES*"
             "*CREATE-INITIAL-WINDOWS-HOOK*" "*CREATE-WINDOW-HOOK*"
             "*DELETE-WINDOW-HOOK*" "*ECHO-AREA-BUFFER*" "*ECHO-AREA-STREAM*"
             "*ECHO-AREA-WINDOW*" "*EDITOR-INPUT*" "*GLOBAL-VARIABLE-NAMES*"
             "*INPUT-TRANSCRIPT*" "*INVOKE-HOOK*" "*KEY-EVENT-HISTORY*"
             "*LAST-KEY-EVENT-TYPED*" "*LOGICAL-KEY-EVENT-NAMES*"
             "*MODE-NAMES*" "*PARSE-DEFAULT*" "*PARSE-DEFAULT-STRING*"
             "*PARSE-HELP*" "*PARSE-INPUT-REGION*" "*PARSE-PROMPT*"
             "*PARSE-STARTING-MARK*" "*PARSE-STRING-TABLES*" "*PARSE-TYPE*"
             "*PARSE-VALUE-MUST-EXIST*" "*PARSE-VERIFICATION-FUNCTION*"
             "*PRINT-REGION*" "*RANDOM-TYPEOUT-BUFFERS*"
             "*RANDOM-TYPEOUT-HOOK*" "*REAL-EDITOR-INPUT*" "*WINDOW-LIST*"
             "ABORT-RECURSIVE-EDIT" "ADD-HOOK" "AFTER-EDITOR-INITIALIZATIONS"
             "BIND-KEY" "BLANK-AFTER-P" "BLANK-BEFORE-P" "BLANK-LINE-P"
             "BUFFER" "BUFFER-DELETE-HOOK" "BUFFER-END" "BUFFER-END-MARK"
             "BUFFER-MAJOR-MODE" "BUFFER-MINOR-MODE" "BUFFER-MODELINE-FIELD-P"
             "BUFFER-MODELINE-FIELDS" "BUFFER-MODES" "BUFFER-MODIFIED"
             "BUFFER-NAME" "BUFFER-PATHNAME" "BUFFER-POINT" "BUFFER-REGION"
             "BUFFER-SIGNATURE" "BUFFER-START" "BUFFER-START-MARK"
             "BUFFER-VARIABLES" "BUFFER-WINDOWS" "BUFFER-WRITABLE"
             "BUFFER-WRITE-DATE" "BUFFERP" "CENTER-WINDOW"
             "CHARACTER-ATTRIBUTE" "CHARACTER-ATTRIBUTE-DOCUMENTATION"
             "CHARACTER-ATTRIBUTE-HOOKS" "CHARACTER-ATTRIBUTE-NAME"
             "CHARACTER-ATTRIBUTE-P" "CHARACTER-OFFSET" "CLEAR-ECHO-AREA"
             "CLEAR-EDITOR-INPUT" "CLRSTRING" "COMMAND" "COMMAND-BINDINGS"
             "COMMAND-CASE" "COMMAND-DOCUMENTATION" "COMMAND-FUNCTION"
             "COMMAND-NAME" "COMMANDP" "COMPLETE-STRING" "COPY-MARK"
             "COPY-REGION" "COUNT-CHARACTERS" "COUNT-LINES" "CURRENT-BUFFER"
             "CURRENT-POINT" "CURRENT-VARIABLE-TABLES" "CURRENT-WINDOW"
             "CURSORPOS-TO-MARK" "DEFATTRIBUTE" "DEFAULT-FONT" "DEFCOMMAND"
             "DEFHVAR" "DEFINE-LOGICAL-KEY-EVENT" "DEFINE-TTY-FONT" "DEFMODE"
             "DELETE-AND-SAVE-REGION" "DELETE-BUFFER" "DELETE-CHARACTERS"
             "DELETE-FONT-MARK" "DELETE-KEY-BINDING" "DELETE-LINE-FONT-MARKS"
             "DELETE-MARK" "DELETE-REGION" "DELETE-STRING" "DELETE-VARIABLE"
             "DELETE-WINDOW" "DIRECTORYP" "DISPLAYED-P" "DO-ALPHA-CHARS"
             "DO-STRINGS" "EDITOR-DESCRIBE-FUNCTION" "EDITOR-ERROR"
             "EDITOR-ERROR-FORMAT-ARGUMENTS" "EDITOR-ERROR-FORMAT-STRING"
             "EDITOR-FINISH-OUTPUT" "EDITOR-SLEEP" "EMPTY-LINE-P" "END-LINE-P"
             "ENTER-WINDOW-AUTORAISE" "EXIT-HEMLOCK" "EXIT-RECURSIVE-EDIT"
             "FETCH-CUT-STRING" "FILTER-REGION" "FIND-AMBIGUOUS"
             "FIND-ATTRIBUTE" "FIND-CONTAINING" "FIND-PATTERN" "FIRST-LINE-P"
             "FONT-MARK" "FUN-DEFINED-FROM-PATHNAME" "GET-COMMAND"
             "GET-KEY-EVENT" "GETSTRING" "HANDLE-LISP-ERRORS" "HEMLOCK-BOUND-P"
             "HEMLOCK-OUTPUT-STREAM" "HEMLOCK-OUTPUT-STREAM-P"
             "HEMLOCK-REGION-STREAM" "HEMLOCK-REGION-STREAM-P" "HLET"
             "IN-RECURSIVE-EDIT" "INPUT-WAITING" "INSERT-CHARACTER"
             "INSERT-REGION" "INSERT-STRING" "INVOKE-HOOK" "KEY-TRANSLATION"
             "LAST-COMMAND-TYPE" "LAST-KEY-EVENT-CURSORPOS" "LAST-LINE-P"
             "LINE" "LINE-BUFFER" "LINE-CHARACTER" "LINE-END" "LINE-LENGTH"
             "LINE-NEXT" "LINE-OFFSET" "LINE-PLIST" "LINE-PREVIOUS"
             "LINE-SIGNATURE" "LINE-START" "LINE-STRING" "LINE-TO-REGION"
             "LINE<" "LINE<=" "LINE>" "LINE>=" "LINEP" "LINES-RELATED"
             "LISTEN-EDITOR-INPUT" "LOGICAL-KEY-EVENT-DOCUMENTATION"
             "LOGICAL-KEY-EVENT-KEY-EVENTS" "LOGICAL-KEY-EVENT-NAME"
             "LOGICAL-KEY-EVENT-P" "LOUD-MESSAGE" "MAKE-BUFFER" "MAKE-COMMAND"
             "MAKE-EMPTY-REGION" "MAKE-HEMLOCK-OUTPUT-STREAM"
             "MAKE-HEMLOCK-REGION-STREAM" "MAKE-KBDMAC-STREAM"
             "MAKE-MODELINE-FIELD" "MAKE-RING" "MAKE-STRING-TABLE"
             "MAKE-WINDOW" "MAKE-XWINDOW-LIKE-HWINDOW" "MAP-BINDINGS" "MARK"
             "MARK-AFTER" "MARK-BEFORE" "MARK-CHARPOS" "MARK-COLUMN"
             "MARK-KIND" "MARK-LINE" "MARK-TO-CURSORPOS" "MARK/=" "MARK<"
             "MARK<=" "MARK=" "MARK>" "MARK>=" "MARKP"
             "MERGE-RELATIVE-PATHNAMES" "MESSAGE" "MODE-DOCUMENTATION"
             "MODE-MAJOR-P" "MODE-VARIABLES" "MODELINE-FIELD"
             "MODELINE-FIELD-FUNCTION" "MODELINE-FIELD-NAME" "MODELINE-FIELD-P"
             "MODELINE-FIELD-WIDTH" "MODIFY-KBDMAC-STREAM" "MOVE-FONT-MARK"
             "MOVE-MARK" "MOVE-TO-COLUMN" "MOVE-TO-POSITION"
             "NEW-SEARCH-PATTERN" "NEXT-CHARACTER" "NEXT-WINDOW"
             "NINSERT-REGION" "PAUSE-HEMLOCK" "PREFIX-ARGUMENT"
             "PREVIOUS-CHARACTER" "PREVIOUS-WINDOW" "PROMPT-FOR-BUFFER"
             "PROMPT-FOR-EXPRESSION" "PROMPT-FOR-FILE" "PROMPT-FOR-INTEGER"
             "PROMPT-FOR-KEY" "PROMPT-FOR-KEY-EVENT" "PROMPT-FOR-KEYWORD"
             "PROMPT-FOR-STRING" "PROMPT-FOR-VARIABLE" "PROMPT-FOR-Y-OR-N"
             "PROMPT-FOR-YES-OR-NO" "READ-FILE" "RECURSIVE-EDIT" "REDISPLAY"
             "REDISPLAY-ALL" "REGION" "REGION-BOUNDS" "REGION-END"
             "REGION-START" "REGION-TO-STRING" "REGIONP" "REMOVE-HOOK"
             "REMOVE-SCHEDULED-EVENT" "REPLACE-PATTERN" "REPROMPT"
             "REVERSE-FIND-ATTRIBUTE" "RING" "RING-LENGTH" "RING-POP"
             "RING-PUSH" "RING-REF" "RINGP" "ROTATE-RING" "SAME-LINE-P"
             "SCHEDULE-EVENT" "SCROLL-WINDOW" "SEARCH-CHAR-CODE-LIMIT"
             "SEARCH-PATTERN" "SEARCH-PATTERN-P" "SET-REGION-BOUNDS" "SETV"
             "SHADOW-ATTRIBUTE" "SHOW-MARK" "START-LINE-P" "STORE-CUT-STRING"
             "STRING-TABLE" "STRING-TABLE-P" "STRING-TABLE-SEPARATOR"
             "STRING-TO-REGION" "STRING-TO-VARIABLE" "SYNTAX-CHAR-CODE-LIMIT"
             "UNGET-KEY-EVENT" "UNSHADOW-ATTRIBUTE" "UPDATE-MODELINE-FIELD"
             "UPDATE-MODELINE-FIELDS" "USE-BUFFER" "VALUE"
             "VARIABLE-DOCUMENTATION" "VARIABLE-HOOKS" "VARIABLE-NAME"
             "VARIABLE-VALUE" "WINDOW" "WINDOW-BUFFER" "WINDOW-DISPLAY-END"
             "WINDOW-DISPLAY-RECENTERING" "WINDOW-DISPLAY-START" "WINDOW-FONT"
             "WINDOW-HEIGHT" "WINDOW-POINT" "WINDOW-WIDTH" "WINDOWP"
             "WITH-INPUT-FROM-REGION" "WITH-MARK" "WITH-OUTPUT-TO-MARK"
             "WITH-POP-UP-DISPLAY" "WITH-WRITABLE-BUFFER" "WRITE-FILE"))
(dolist
    (name
     '("DEBUG-SOURCE" "DEBUG-SOURCE-COMPILED" "DEBUG-SOURCE-CREATED"
       "DEBUG-SOURCE-FROM" "DEBUG-SOURCE-NAME" "DEBUG-SOURCE-P"
       "DEBUG-SOURCE-START-POSITIONS"))
  (intern name "C"))
(defpackage "DEBUG-INTERNALS"
            (:import-from "C" "DEBUG-SOURCE" "DEBUG-SOURCE-COMPILED"
             "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-FROM" "DEBUG-SOURCE-NAME"
             "DEBUG-SOURCE-P" "DEBUG-SOURCE-START-POSITIONS")
            (:export "*DEBUGGING-INTERPRETER*" "ACTIVATE-BREAKPOINT"
             "AMBIGUOUS-DEBUG-VARIABLES" "AMBIGUOUS-VARIABLE-NAME" "BREAKPOINT"
             "BREAKPOINT-ACTIVE-P" "BREAKPOINT-HOOK-FUNCTION" "BREAKPOINT-INFO"
             "BREAKPOINT-KIND" "BREAKPOINT-P" "BREAKPOINT-WHAT" "CODE-LOCATION"
             "CODE-LOCATION-DEBUG-BLOCK" "CODE-LOCATION-DEBUG-FUNCTION"
             "CODE-LOCATION-DEBUG-SOURCE" "CODE-LOCATION-FORM-NUMBER"
             "CODE-LOCATION-P" "CODE-LOCATION-TOP-LEVEL-FORM-OFFSET"
             "CODE-LOCATION-UNKNOWN-P" "CODE-LOCATION=" "DEACTIVATE-BREAKPOINT"
             "DEBUG-BLOCK" "DEBUG-BLOCK-ELSEWHERE-P" "DEBUG-BLOCK-P"
             "DEBUG-BLOCK-SUCCESSORS" "DEBUG-CONDITION" "DEBUG-ERROR"
             "DEBUG-FUNCTION" "DEBUG-FUNCTION-FUNCTION" "DEBUG-FUNCTION-KIND"
             "DEBUG-FUNCTION-LAMBDA-LIST" "DEBUG-FUNCTION-NAME"
             "DEBUG-FUNCTION-P" "DEBUG-FUNCTION-START-LOCATION"
             "DEBUG-FUNCTION-SYMBOL-VARIABLES" "DEBUG-SOURCE"
             "DEBUG-SOURCE-COMPILED" "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-FROM"
             "DEBUG-SOURCE-NAME" "DEBUG-SOURCE-P" "DEBUG-SOURCE-ROOT-NUMBER"
             "DEBUG-SOURCE-START-POSITIONS" "DEBUG-VARIABLE"
             "DEBUG-VARIABLE-ID" "DEBUG-VARIABLE-INFO-AVAILABLE"
             "DEBUG-VARIABLE-NAME" "DEBUG-VARIABLE-P" "DEBUG-VARIABLE-PACKAGE"
             "DEBUG-VARIABLE-SYMBOL" "DEBUG-VARIABLE-VALID-VALUE"
             "DEBUG-VARIABLE-VALIDITY" "DEBUG-VARIABLE-VALUE"
             "DELETE-BREAKPOINT" "DELETE-BREAKPOINT-FOR-EDITOR" "DO-BLOCKS"
             "DO-DEBUG-BLOCK-LOCATIONS" "DO-DEBUG-FUNCTION-BLOCKS"
             "DO-DEBUG-FUNCTION-VARIABLES" "EVAL-IN-FRAME"
             "FORM-NUMBER-TRANSLATIONS" "FRAME" "FRAME-CATCHES"
             "FRAME-CODE-LOCATION" "FRAME-DEBUG-FUNCTION" "FRAME-DOWN"
             "FRAME-FUNCTION-MISMATCH" "FRAME-NUMBER" "FRAME-P" "FRAME-UP"
             "FUNCTION-DEBUG-FUNCTION" "FUNCTION-END-COOKIE-VALID-P"
             "INVALID-CONTROL-STACK-POINTER" "INVALID-VALUE"
             "LAMBDA-LIST-UNAVAILABLE" "MAKE-BREAKPOINT" "NO-DEBUG-BLOCKS"
             "NO-DEBUG-FUNCTION-RETURNS" "NO-DEBUG-INFO" "PREPROCESS-FOR-EVAL"
             "RETURN-FROM-FRAME" "SET-BREAKPOINT-FOR-EDITOR"
             "SET-LOCATION-BREAKPOINT-FOR-EDITOR" "SOURCE-PATH-CONTEXT"
             "TOP-FRAME" "UNHANDLED-CONDITION" "UNKNOWN-CODE-LOCATION"
             "UNKNOWN-CODE-LOCATION-P" "UNKNOWN-DEBUG-VARIABLE"))
(dolist
    (name
     '("%ALIGNED-SAP" "%ARRAY-TYPEP" "%ASET" "%BITSET" "%CHARSET" "%PUT"
       "%RPLACA" "%RPLACD" "%SBITSET" "%SCHARSET" "%SET-DOCUMENTATION"
       "%SET-FDEFINITION" "%SET-FILL-POINTER" "%SET-ROW-MAJOR-AREF"
       "%SET-SAP-REF-DESCRIPTOR" "%SETELT" "%SETNTH" "%SP-STRING-COMPARE"
       "%SVSET" "%TYPEP" "LONG-FLOAT-P" "NIL" "RETURN" "SET" "SHORT-FLOAT-P"
       "STRING/=*" "STRING<*" "STRING<=*" "STRING=*" "STRING>*" "STRING>=*"
       "SYMBOL-FUNCTION" "SYMBOL-VALUE" "THROW" "VALUES-LIST"))
  (intern name "LISP"))
(intern "BOOLEAN" "ALIEN")
(dolist
    (name
     '("%PRIMITIVE" "%STANDARD-CHAR-P" "%STRING-CHAR-P" "BITS" "BYTES"
       "C-PROCEDURE" "CHECK<=" "CHECK=" "CT-A-VAL" "CT-A-VAL-OFFSET"
       "CT-A-VAL-P" "CT-A-VAL-SAP" "CT-A-VAL-SIZE" "CT-A-VAL-TYPE"
       "DEFENUMERATION" "DEFOPERATOR" "DEPORT-BOOLEAN" "DEPORT-INTEGER"
       "ENUMERATION" "FOREIGN-SYMBOL-ADDRESS" "LONG-WORDS" "MAKE-CT-A-VAL"
       "NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER" "NULL-TERMINATED-STRING"
       "PERQ-STRING" "POINTER" "PORT" "RECORD-SIZE" "SAP+" "SAP-REF-16"
       "SAP-REF-32" "SAP-REF-8" "SAP-REF-SAP" "SIGNED-SAP-REF-16"
       "SIGNED-SAP-REF-32" "SIGNED-SAP-REF-8" "SYSTEM-AREA-POINTER" "WORDS"))
  (intern name "SYSTEM"))
(intern "SYMBOLICATE" "EXTENSIONS")
(dolist
    (name
     '("%RAW-BITS" "%SET-SAP-REF-16" "%SET-SAP-REF-32" "%SET-SAP-REF-8"
       "%SET-SAP-REF-DOUBLE" "%SET-SAP-REF-SAP" "%SET-SAP-REF-SINGLE"
       "%SP-SET-DEFINITION" "%SP-SET-PLIST" "ARRAY-HEADER-P" "BASE-CHAR-P"
       "CODE-INSTRUCTIONS" "DOUBLE-FLOAT-P" "ODD-KEYWORD-ARGUMENTS-ERROR"
       "SIMPLE-ARRAY-P" "SINGLE-FLOAT-P" "STRUCTURE-REF" "STRUCTURE-SET"
       "UNKNOWN-KEYWORD-ARGUMENT-ERROR"))
  (intern name "KERNEL"))
(defpackage "C"
            (:import-from "LISP" "%ALIGNED-SAP" "%ARRAY-TYPEP" "%ASET"
             "%BITSET" "%CHARSET" "%PUT" "%RPLACA" "%RPLACD" "%SBITSET"
             "%SCHARSET" "%SET-DOCUMENTATION" "%SET-FDEFINITION"
             "%SET-FILL-POINTER" "%SET-ROW-MAJOR-AREF"
             "%SET-SAP-REF-DESCRIPTOR" "%SETELT" "%SETNTH" "%SP-STRING-COMPARE"
             "%SVSET" "%TYPEP" "LONG-FLOAT-P" "NIL" "RETURN" "SET"
             "SHORT-FLOAT-P" "STRING/=*" "STRING<*" "STRING<=*" "STRING=*"
             "STRING>*" "STRING>=*" "SYMBOL-FUNCTION" "SYMBOL-VALUE" "THROW"
             "VALUES-LIST")
            (:import-from "ALIEN" "BOOLEAN")
            (:import-from "SYSTEM" "%PRIMITIVE" "%STANDARD-CHAR-P"
             "%STRING-CHAR-P" "BITS" "BYTES" "C-PROCEDURE" "CHECK<=" "CHECK="
             "CT-A-VAL" "CT-A-VAL-OFFSET" "CT-A-VAL-P" "CT-A-VAL-SAP"
             "CT-A-VAL-SIZE" "CT-A-VAL-TYPE" "DEFENUMERATION" "DEFOPERATOR"
             "DEPORT-BOOLEAN" "DEPORT-INTEGER" "ENUMERATION"
             "FOREIGN-SYMBOL-ADDRESS" "LONG-WORDS" "MAKE-CT-A-VAL"
             "NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER" "NULL-TERMINATED-STRING"
             "PERQ-STRING" "POINTER" "PORT" "RECORD-SIZE" "SAP+" "SAP-REF-16"
             "SAP-REF-32" "SAP-REF-8" "SAP-REF-SAP" "SIGNED-SAP-REF-16"
             "SIGNED-SAP-REF-32" "SIGNED-SAP-REF-8" "SYSTEM-AREA-POINTER"
             "WORDS")
            (:import-from "EXTENSIONS" "SYMBOLICATE")
            (:import-from "KERNEL" "%RAW-BITS" "%SET-SAP-REF-16"
             "%SET-SAP-REF-32" "%SET-SAP-REF-8" "%SET-SAP-REF-DOUBLE"
             "%SET-SAP-REF-SAP" "%SET-SAP-REF-SINGLE" "%SP-SET-DEFINITION"
             "%SP-SET-PLIST" "ARRAY-HEADER-P" "BASE-CHAR-P" "CODE-INSTRUCTIONS"
             "DOUBLE-FLOAT-P" "ODD-KEYWORD-ARGUMENTS-ERROR" "SIMPLE-ARRAY-P"
             "SINGLE-FLOAT-P" "STRUCTURE-REF" "STRUCTURE-SET"
             "UNKNOWN-KEYWORD-ARGUMENT-ERROR")
            (:export "%ALIEN-FUNCALL" "%CATCH-BREAKUP" "%CONTINUE-UNWIND"
             "%LISTIFY-REST-ARGS" "%MORE-ARG" "%UNWIND-PROTECT-BREAKUP"
             "*BACKEND*" "*CODE-SEGMENT*" "*COLLECT-DYNAMIC-STATISTICS*"
             "*COMPILE-TIME-DEFINE-MACROS*" "*COMPILER-NOTIFICATION-FUNCTION*"
             "*COMPILING-FOR-INTERPRETER*" "*CONVERTING-FOR-INTERPRETER*"
             "*COUNT-VOP-USAGES*" "*ELSEWHERE*" "*NATIVE-BACKEND*"
             "*SUPPRESS-VALUES-DECLARATION*" "*TARGET-BACKEND*"
             "ALLOC-NUMBER-STACK-SPACE" "ALLOCATE-CODE-OBJECT" "ALLOCATE-FRAME"
             "ALLOCATE-FULL-CALL-FRAME" "ANY" "ARGUMENT-COUNT-ERROR"
             "ATTRIBUTES" "ATTRIBUTES-INTERSECTION" "ATTRIBUTES-UNION"
             "ATTRIBUTES=" "BACKEND-ANY-PRIMITIVE-TYPE"
             "BACKEND-ASSEMBLER-RESOURCES" "BACKEND-BYTE-ORDER"
             "BACKEND-DISASSEM-PARAMS" "BACKEND-FASL-FILE-IMPLEMENTATION"
             "BACKEND-FASL-FILE-TYPE" "BACKEND-FASL-FILE-VERSION"
             "BACKEND-FEATURES" "BACKEND-INFO-ENVIRONMENT"
             "BACKEND-INSTRUCTION-FLAVORS" "BACKEND-INSTRUCTION-FORMATS"
             "BACKEND-NAME" "BACKEND-REGISTER-SAVE-PENALTY"
             "BACKEND-SPECIAL-ARG-TYPES" "BACKEND-VERSION" "BIND" "BRANCH"
             "CALL" "CALL-LOCAL" "CALL-NAMED" "CALL-OUT" "CALL-VARIABLE"
             "CALLEE-NFP-TN" "CALLEE-RETURN-PC-TN" "CATCH-BLOCK" "CHECK-CONS"
             "CHECK-FIXNUM" "CHECK-FUNCTION" "CHECK-FUNCTION-OR-SYMBOL"
             "CHECK-SIGNED-BYTE-32" "CHECK-SYMBOL" "CHECK-UNSIGNED-BYTE-32"
             "CLOSURE-INIT" "CLOSURE-REF" "CODE-CONSTANT-REF"
             "CODE-CONSTANT-SET" "CODE-INSTRUCTIONS" "COERCE-TO-FUNCTION"
             "COMPILE-FOR-EVAL" "COMPONENT" "COMPONENT-HEADER-LENGTH"
             "COMPONENT-INFO" "COMPONENT-LIVE-TN" "COMPUTE-FUNCTION"
             "COMPUTE-OLD-NFP" "COPY-MORE-ARG" "COUNT-ME"
             "CURRENT-BINDING-POINTER" "CURRENT-NFP-TN" "CURRENT-STACK-POINTER"
             "DEALLOC-NUMBER-STACK-SPACE" "DEF-BOOLEAN-ATTRIBUTE"
             "DEF-IR1-TRANSLATOR" "DEF-PRIMITIVE-TRANSLATOR"
             "DEF-PRIMITIVE-TYPE" "DEF-PRIMITIVE-TYPE-ALIAS"
             "DEF-SOURCE-TRANSFORM" "DEF-VM-SUPPORT-ROUTINE"
             "DEFINE-ASSEMBLY-ROUTINE" "DEFINE-MOVE-FUNCTION" "DEFINE-MOVE-VOP"
             "DEFINE-STORAGE-BASE" "DEFINE-STORAGE-CLASS" "DEFINE-VOP"
             "DEFKNOWN" "DEFOPTIMIZER" "DEFTRANSFORM" "DERIVE-TYPE"
             "ENTRY-NODE-INFO-NLX-TAG" "ENTRY-NODE-INFO-ST-TOP"
             "ENVIRONMENT-DEBUG-LIVE-TN" "ENVIRONMENT-LIVE-TN"
             "FASL-FILE-IMPLEMENTATIONS" "FAST-SAFE-COERCE-TO-FUNCTION"
             "FAST-SYMBOL-FUNCTION" "FAST-SYMBOL-VALUE" "FLUSHABLE" "FOLDABLE"
             "FORCE-TN-TO-STACK" "FOREIGN-SYMBOL-ADDRESS" "GET-VECTOR-SUBTYPE"
             "HALT" "IF-EQ" "IR2-COMPONENT-CONSTANTS" "IR2-CONVERT"
             "IR2-ENVIRONMENT-NUMBER-STACK-P" "KNOWN-CALL-LOCAL" "KNOWN-RETURN"
             "LAMBDA-EVAL-INFO-ARGS-PASSED" "LAMBDA-EVAL-INFO-ENTRIES"
             "LAMBDA-EVAL-INFO-FRAME-SIZE" "LAMBDA-EVAL-INFO-FUNCTION"
             "LOCATION=" "LTN-ANNOTATE" "MAKE-ALIAS-TN" "MAKE-CATCH-BLOCK"
             "MAKE-CLOSURE" "MAKE-CONSTANT-TN" "MAKE-FIXNUM"
             "MAKE-LOAD-TIME-CONSTANT-TN" "MAKE-N-TNS" "MAKE-NORMAL-TN"
             "MAKE-OTHER-IMMEDIATE-TYPE" "MAKE-RANDOM-TN"
             "MAKE-REPRESENTATION-TN" "MAKE-RESTRICTED-TN" "MAKE-SC-OFFSET"
             "MAKE-STACK-POINTER-TN" "MAKE-TN-REF" "MAKE-UNWIND-BLOCK"
             "MAKE-VALUE-CELL" "MAKE-WIRED-TN" "META-PRIMITIVE-TYPE-OR-LOSE"
             "META-SB-OR-LOSE" "META-SC-NUMBER-OR-LOSE" "META-SC-OR-LOSE"
             "MORE-ARG-CONTEXT" "MOVABLE" "MOVE" "MULTIPLE-CALL"
             "MULTIPLE-CALL-LOCAL" "MULTIPLE-CALL-NAMED"
             "MULTIPLE-CALL-VARIABLE" "NIL" "NLX-ENTRY" "NLX-ENTRY-MULTIPLE"
             "NON-DESCRIPTOR-STACK" "NOTE-ENVIRONMENT-START"
             "NOTE-THIS-LOCATION" "ODD-KEYWORD-ARGUMENTS-ERROR" "OPTIMIZER"
             "PACK-TRACE-TABLE" "PMAX-FASL-FILE-IMPLEMENTATION" "POLICY"
             "PREDICATE" "PRIMITIVE-TYPE" "PRIMITIVE-TYPE-OF"
             "PRIMITIVE-TYPE-OR-LOSE" "PRIMITIVE-TYPE-VOP" "PUSH-VALUES"
             "READ-PACKED-BIT-VECTOR" "READ-VAR-INTEGER" "READ-VAR-STRING"
             "RESET-STACK-POINTER" "RESTORE-DYNAMIC-STATE" "RETURN"
             "RETURN-MULTIPLE" "RT-AFPA-FASL-FILE-IMPLEMENTATION"
             "RT-FASL-FILE-IMPLEMENTATION" "SAVE-DYNAMIC-STATE" "SB"
             "SB-ALLOCATED-SIZE" "SB-NAME" "SB-OR-LOSE" "SB-P" "SC" "SC-CASE"
             "SC-IS" "SC-NAME" "SC-NUMBER" "SC-NUMBER-OR-LOSE"
             "SC-OFFSET-OFFSET" "SC-OFFSET-SCN" "SC-OR-LOSE" "SC-P" "SC-SB"
             "SET" "SET-UNWIND-PROTECT" "SET-VECTOR-SUBTYPE"
             "SETUP-CLOSURE-ENVIRONMENT" "SETUP-ENVIRONMENT"
             "SPARC-FASL-FILE-IMPLEMENTATION" "SPECIFY-SAVE-TN" "STRUCTURE-REF"
             "STRUCTURE-SET" "SXHASH-SIMPLE-STRING" "SXHASH-SIMPLE-SUBSTRING"
             "SYMBOL-FUNCTION" "SYMBOL-VALUE" "SYMBOLICATE" "TAIL-CALL"
             "TAIL-CALL-NAMED" "TAIL-CALL-VARIABLE" "TEMPLATE-OR-LOSE" "THROW"
             "TN" "TN-OFFSET" "TN-P" "TN-REF" "TN-REF-ACROSS" "TN-REF-LOAD-TN"
             "TN-REF-NEXT" "TN-REF-NEXT-REF" "TN-REF-P" "TN-REF-TARGET"
             "TN-REF-TN" "TN-REF-VOP" "TN-REF-WRITE-P" "TN-SC" "TN-VALUE"
             "TRACE-TABLE-ENTRY" "TYPE-CHECK-ERROR" "UNBIND" "UNBIND-TO-HERE"
             "UNKNOWN-KEYWORD-ARGUMENT-ERROR" "UNSAFE" "UNWIND" "UWP-ENTRY"
             "VALUE-CELL-REF" "VALUE-CELL-SET" "VALUES-LIST"
             "VERIFY-ARGUMENT-COUNT" "WRITE-PACKED-BIT-VECTOR"
             "WRITE-VAR-INTEGER" "WRITE-VAR-STRING" "XEP-ALLOCATE-FRAME"))
(defpackage "DIRED"
            (:export "*CLOBBER-DEFAULT*" "*ERROR-FUNCTION*"
             "*RECURSIVE-DEFAULT*" "*REPORT-FUNCTION*" "*UPDATE-DEFAULT*"
             "*YESP-FUNCTION*" "COPY-FILE" "DELETE-FILE" "FIND-FILE"
             "MAKE-DIRECTORY" "PATHNAMES-FROM-PATTERN" "RENAME-FILE"))
(defpackage "WIRE"
            (:export "*CURRENT-WIRE*" "CONNECT-TO-REMOTE-SERVER"
             "CREATE-REQUEST-SERVER" "DESTROY-REQUEST-SERVER"
             "FORGET-REMOTE-TRANSLATION" "MAKE-REMOTE-OBJECT" "MAKE-WIRE"
             "REMOTE" "REMOTE-OBJECT" "REMOTE-OBJECT-EQ"
             "REMOTE-OBJECT-LOCAL-P" "REMOTE-OBJECT-P" "REMOTE-OBJECT-VALUE"
             "REMOTE-VALUE" "REMOTE-VALUE-BIND" "WIRE-EOF" "WIRE-ERROR"
             "WIRE-FD" "WIRE-FORCE-OUTPUT" "WIRE-GET-BIGNUM" "WIRE-GET-BYTE"
             "WIRE-GET-NUMBER" "WIRE-GET-OBJECT" "WIRE-GET-STRING"
             "WIRE-IO-ERROR" "WIRE-LISTEN" "WIRE-OUTPUT-BIGNUM"
             "WIRE-OUTPUT-BYTE" "WIRE-OUTPUT-FUNCALL" "WIRE-OUTPUT-NUMBER"
             "WIRE-OUTPUT-OBJECT" "WIRE-OUTPUT-STRING" "WIRE-P"))
(defpackage "PRETTY-PRINT" (:export "PRETTY-STREAM" "PRETTY-STREAM-P"))
(intern "LOAD-FOREIGN" "EXTENSIONS")
(defpackage "SYSTEM"
            (:import-from "EXTENSIONS" "LOAD-FOREIGN")
            (:export "%ASSEMBLER-CODE-TYPE" "%BIND-ALIGNED-SAP" "%PRIMITIVE"
             "%SP-BYTE-BLT" "%SP-FIND-CHARACTER"
             "%SP-FIND-CHARACTER-WITH-ATTRIBUTE"
             "%SP-REVERSE-FIND-CHARACTER-WITH-ATTRIBUTE" "%STANDARD-CHAR-P"
             "%STRING-CHAR-P" "*BEEP-FUNCTION*"
             "*IN-THE-COMPILER*" "*LONG-SITE-NAME*"
             "*MAXIMUM-INTERPRETER-ERROR-CHECKING*" "*NAMESERVERPORT*"
             "*PORNOGRAPHY-OF-DEATH*" "*PORT-OWNERSHIP-RIGHTS-HANDLERS*"
             "*PORT-RECEIVE-RIGHTS-HANDLERS*" "*SHORT-SITE-NAME*"
             "*SOFTWARE-TYPE*" "*STDERR*" "*STDIN*" "*STDOUT*" "*TASK-DATA*"
             "*TASK-NOTIFY*" "*TASK-SELF*" "*TTY*" "*TYPESCRIPTPORT*"
             "*USERTYPESCRIPT*" "*USERWINDOW*" "*XWINDOW-TABLE*"
             "ADD-FD-HANDLER" "ADD-PORT-DEATH-HANDLER" "ADD-PORT-OBJECT"
             "ADD-XWINDOW-OBJECT" "ALLOCATE-SYSTEM-MEMORY" "BEEP" "BITS"
             "BYTES" "C-PROCEDURE" "CHECK<=" "CHECK=" "COMPILER-VERSION"
             "CT-A-VAL" "CT-A-VAL-OFFSET" "CT-A-VAL-P" "CT-A-VAL-SAP"
             "CT-A-VAL-SIZE" "CT-A-VAL-TYPE" "DEALLOCATE-SYSTEM-MEMORY"
             "DEFAULT-INTERRUPT" "DEFENUMERATION" "DEFOPERATOR" "DEFRECORD"
             "DEPORT-BOOLEAN" "DEPORT-INTEGER" "DOUBLE-FLOAT-RADIX"
             "ENABLE-INTERRUPT" "ENUMERATION" "FD-STREAM" "FD-STREAM-FD"
             "FD-STREAM-P" "FEXPR" "FIND-IF-IN-CLOSURE"
             "FOREIGN-SYMBOL-ADDRESS" "GET-PAGE-SIZE" "GET-SYSTEM-INFO"
	     "IGNORE-INTERRUPT"
             "INT-SAP" "INVALIDATE-DESCRIPTOR" "IO-TIMEOUT" "LONG-FLOAT-RADIX"
             "LONG-WORDS" "MACRO" "MAKE-CT-A-VAL" "MAKE-FD-STREAM"
             "MAKE-INDENTING-STREAM" "MAKE-OBJECT-SET" "MAP-PORT" "MAP-XWINDOW"
             "NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER" "NULL-TERMINATED-STRING"
             "OBJECT-SET-OPERATION" "OUTPUT-RAW-BYTES" "PARSE-BODY"
             "PERQ-STRING" "POINTER" "POINTER<" "POINTER>" "PORT" "PRIMEP"
             "READ-N-BYTES" "REALLOCATE-SYSTEM-MEMORY" "RECORD-SIZE"
             "REMOVE-FD-HANDLER" "REMOVE-PORT-DEATH-HANDLER"
             "REMOVE-PORT-OBJECT" "REMOVE-XWINDOW-OBJECT"
             "RESOLVE-LOADED-ASSEMBLER-REFERENCES" "SAP+" "SAP-" "SAP-INT"
             "SAP-REF-16" "SAP-REF-32" "SAP-REF-8" "SAP-REF-DESCRIPTOR"
             "SAP-REF-DOUBLE" "SAP-REF-SAP" "SAP-REF-SINGLE" "SAP<" "SAP<="
             "SAP=" "SAP>" "SAP>=" "SCRUB-CONTROL-STACK" "SERVE-ALL-EVENTS"
             "SERVE-EVENT" "SERVER" "SERVER-MESSAGE" "SHORT-FLOAT-RADIX"
             "SIGNED-SAP-REF-16" "SIGNED-SAP-REF-32" "SIGNED-SAP-REF-8"
             "SINGLE-FLOAT-RADIX" "SYMBOL-MACRO-LET" "SYSTEM-AREA-POINTER"
             "SYSTEM-AREA-POINTER-P" "UNPROCLAIM" "UNSTRUCTURED" "VECTOR-SAP"
             "WAIT-UNTIL-FD-USABLE" "WITH-ENABLED-INTERRUPTS" "WITH-FD-HANDLER"
             "WITH-INTERRUPTS" "WITH-REPLY-PORT" "WITHOUT-GCING"
             "WITHOUT-HEMLOCK" "WITHOUT-INTERRUPTS" "WORDS"))
(dolist
    (name
     '("*" "ARRAY" "DOUBLE-FLOAT" "FUNCTION" "INTEGER" "SINGLE-FLOAT" "UNION"
       "VALUES"))
  (intern name "LISP"))
(defpackage "ALIEN"
            (:import-from "LISP" "*" "ARRAY" "DOUBLE-FLOAT" "FUNCTION"
             "INTEGER" "SINGLE-FLOAT" "UNION" "VALUES")
            (:export "*" "ADDR" "ALIEN" "ALIEN-FUNCALL" "ALIEN-SAP"
             "ALIEN-SIZE" "ARRAY" "BOOLEAN" "CAST" "DEF-ALIEN-ROUTINE"
             "DEF-ALIEN-TYPE" "DEF-ALIEN-VARIABLE" "DEF-BUILTIN-ALIEN-TYPE"
             "DEREF" "DOUBLE-FLOAT" "ENUM" "EXTERN-ALIEN" "FUNCTION" "INTEGER"
             "SAP-ALIEN" "SIGNED" "SINGLE-FLOAT" "SLOT" "STRUCT" "UNION"
             "UNSIGNED" "VALUES" "WITH-ALIEN"))
(dolist
    (name
     '("%CAST" "%DEREF-ADDR" "%HEAP-ALIEN" "%HEAP-ALIEN-ADDR"
       "%LOCAL-ALIEN-ADDR" "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN"
       "%SET-DEREF" "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT"
       "%SLOT-ADDR" "ALIEN" "ALIEN-ARRAY-TYPE" "ALIEN-ARRAY-TYPE-DIMENSIONS"
       "ALIEN-ARRAY-TYPE-ELEMENT-TYPE" "ALIEN-ARRAY-TYPE-P"
       "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P" "ALIEN-ENUM-TYPE"
       "ALIEN-ENUM-TYPE-P" "ALIEN-FUNCTION-TYPE"
       "ALIEN-FUNCTION-TYPE-ARG-TYPES" "ALIEN-FUNCTION-TYPE-P"
       "ALIEN-FUNCTION-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE"
       "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED" "ALIEN-POINTER-TYPE"
       "ALIEN-POINTER-TYPE-P" "ALIEN-POINTER-TYPE-TO" "ALIEN-RECORD-FIELD"
       "ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET"
       "ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE" "ALIEN-RECORD-TYPE"
       "ALIEN-RECORD-TYPE-FIELDS" "ALIEN-RECORD-TYPE-P" "ALIEN-SUBTYPE-P"
       "ALIEN-TYPE" "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS"
       "ALIEN-TYPE-P" "ALIEN-TYPEP" "ALIEN-VALUE" "ALIEN-VALUES-TYPE"
       "ALIEN-VALUES-TYPE-P" "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET"
       "COMPUTE-ALIEN-REP-TYPE" "COMPUTE-DEPORT-LAMBDA"
       "COMPUTE-DEPOSIT-LAMBDA" "COMPUTE-EXTRACT-LAMBDA"
       "COMPUTE-LISP-REP-TYPE" "COMPUTE-NATURALIZE-LAMBDA"
       "DEF-ALIEN-TYPE-CLASS" "DEF-ALIEN-TYPE-METHOD"
       "DEF-ALIEN-TYPE-TRANSLATOR" "DEPORT" "DEPOSIT-ALIEN-VALUE"
       "DISPOSE-LOCAL-ALIEN" "EXTRACT-ALIEN-VALUE" "HEAP-ALIEN-INFO"
       "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM" "HEAP-ALIEN-INFO-TYPE"
       "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN" "LOCAL-ALIEN-INFO"
       "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P" "LOCAL-ALIEN-INFO-P"
       "LOCAL-ALIEN-INFO-TYPE" "MAKE-ALIEN-POINTER-TYPE" "MAKE-LOCAL-ALIEN"
       "NATURALIZE" "NOTE-LOCAL-ALIEN-TYPE" "PARSE-ALIEN-TYPE"
       "UNPARSE-ALIEN-TYPE"))
  (intern name "ALIEN"))
(defpackage "ALIEN-INTERNALS"
            (:import-from "ALIEN" "%CAST" "%DEREF-ADDR" "%HEAP-ALIEN"
             "%HEAP-ALIEN-ADDR" "%LOCAL-ALIEN-ADDR"
             "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN" "%SET-DEREF"
             "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT" "%SLOT-ADDR"
             "ALIEN" "ALIEN-ARRAY-TYPE" "ALIEN-ARRAY-TYPE-DIMENSIONS"
             "ALIEN-ARRAY-TYPE-ELEMENT-TYPE" "ALIEN-ARRAY-TYPE-P"
             "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P" "ALIEN-ENUM-TYPE"
             "ALIEN-ENUM-TYPE-P" "ALIEN-FUNCTION-TYPE"
             "ALIEN-FUNCTION-TYPE-ARG-TYPES" "ALIEN-FUNCTION-TYPE-P"
             "ALIEN-FUNCTION-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE"
             "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED"
             "ALIEN-POINTER-TYPE" "ALIEN-POINTER-TYPE-P"
             "ALIEN-POINTER-TYPE-TO" "ALIEN-RECORD-FIELD"
             "ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET"
             "ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE"
             "ALIEN-RECORD-TYPE" "ALIEN-RECORD-TYPE-FIELDS"
             "ALIEN-RECORD-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE"
             "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS"
             "ALIEN-TYPE-P" "ALIEN-TYPEP" "ALIEN-VALUE" "ALIEN-VALUES-TYPE"
             "ALIEN-VALUES-TYPE-P" "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET"
             "COMPUTE-ALIEN-REP-TYPE" "COMPUTE-DEPORT-LAMBDA"
             "COMPUTE-DEPOSIT-LAMBDA" "COMPUTE-EXTRACT-LAMBDA"
             "COMPUTE-LISP-REP-TYPE" "COMPUTE-NATURALIZE-LAMBDA"
             "DEF-ALIEN-TYPE-CLASS" "DEF-ALIEN-TYPE-METHOD"
             "DEF-ALIEN-TYPE-TRANSLATOR" "DEPORT" "DEPOSIT-ALIEN-VALUE"
             "DISPOSE-LOCAL-ALIEN" "EXTRACT-ALIEN-VALUE" "HEAP-ALIEN-INFO"
             "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM"
             "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN"
             "LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P"
             "LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE"
             "MAKE-ALIEN-POINTER-TYPE" "MAKE-LOCAL-ALIEN" "NATURALIZE"
             "NOTE-LOCAL-ALIEN-TYPE" "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE")
            (:export "%CAST" "%DEREF-ADDR" "%HEAP-ALIEN" "%HEAP-ALIEN-ADDR"
             "%LOCAL-ALIEN-ADDR" "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN"
             "%SET-DEREF" "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT"
             "%SLOT-ADDR" "ALIEN" "ALIEN-ARRAY-TYPE"
             "ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE"
             "ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P"
             "ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FUNCTION-TYPE"
             "ALIEN-FUNCTION-TYPE-ARG-TYPES" "ALIEN-FUNCTION-TYPE-P"
             "ALIEN-FUNCTION-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE"
             "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED"
             "ALIEN-POINTER-TYPE" "ALIEN-POINTER-TYPE-P"
             "ALIEN-POINTER-TYPE-TO" "ALIEN-RECORD-FIELD"
             "ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET"
             "ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE"
             "ALIEN-RECORD-TYPE" "ALIEN-RECORD-TYPE-FIELDS"
             "ALIEN-RECORD-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE"
             "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS"
             "ALIEN-TYPE-P" "ALIEN-TYPEP" "ALIEN-VALUE" "ALIEN-VALUES-TYPE"
             "ALIEN-VALUES-TYPE-P" "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET"
             "COMPUTE-ALIEN-REP-TYPE" "COMPUTE-DEPORT-LAMBDA"
             "COMPUTE-DEPOSIT-LAMBDA" "COMPUTE-EXTRACT-LAMBDA"
             "COMPUTE-LISP-REP-TYPE" "COMPUTE-NATURALIZE-LAMBDA"
             "DEF-ALIEN-TYPE-CLASS" "DEF-ALIEN-TYPE-METHOD"
             "DEF-ALIEN-TYPE-TRANSLATOR" "DEPORT" "DEPOSIT-ALIEN-VALUE"
             "DISPOSE-LOCAL-ALIEN" "EXTRACT-ALIEN-VALUE" "HEAP-ALIEN-INFO"
             "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM"
             "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN"
             "LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P"
             "LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE"
             "MAKE-ALIEN-POINTER-TYPE" "MAKE-LOCAL-ALIEN" "NATURALIZE"
             "NOTE-LOCAL-ALIEN-TYPE" "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE"))
(defpackage "PROFILE"
            (:export "*TIMED-FUNCTIONS*" "PROFILE" "REPORT-TIME" "RESET-TIME"
             "UNPROFILE"))
(dolist
    (name
     '("ARRAY-RANK" "ARRAY-TOTAL-SIZE" "CHAR-INT" "FLOAT-DIGITS" "FLOAT-RADIX"
       "PATHNAME-DEVICE" "PATHNAME-DIRECTORY" "PATHNAME-HOST" "PATHNAME-NAME"
       "PATHNAME-TYPE" "PATHNAME-VERSION"))
  (intern name "LISP"))
(intern "BOOLEAN" "ALIEN")
(intern "VOID" "C-CALL")
(defpackage "KERNEL"
            (:import-from "LISP" "ARRAY-RANK" "ARRAY-TOTAL-SIZE" "CHAR-INT"
             "FLOAT-DIGITS" "FLOAT-RADIX" "PATHNAME-DEVICE"
             "PATHNAME-DIRECTORY" "PATHNAME-HOST" "PATHNAME-NAME"
             "PATHNAME-TYPE" "PATHNAME-VERSION")
            (:import-from "ALIEN" "BOOLEAN")
	    (:import-from "C-CALL" "VOID")
            (:export "%ACOS" "%ACOSH" "%ARRAY-AVAILABLE-ELEMENTS"
             "%ARRAY-DATA-VECTOR" "%ARRAY-DIMENSION" "%ARRAY-DISPLACED-P"
             "%ARRAY-DISPLACEMENT" "%ARRAY-FILL-POINTER"
             "%ARRAY-FILL-POINTER-P" "%ASIN" "%ASINH" "%ATAN" "%ATAN2" "%ATANH"
             "%CALLER-FRAME-AND-PC" "%CBRT" "%CHECK-BOUND" "%CLOSURE-FUNCTION"
             "%CLOSURE-INDEX-REF" "%COS" "%COSH" "%DEPOSIT-FIELD"
             "%DOUBLE-FLOAT" "%DPB" "%EXP" "%EXPM1" "%FUNCTION-HEADER-ARGLIST"
             "%FUNCTION-HEADER-NAME" "%FUNCTION-HEADER-TYPE" "%HYPOT" "%LDB"
             "%LOG" "%LOG10" "%LOG1P" "%MAKE-COMPLEX"
             "%MAKE-FUNCALLABLE-INSTANCE" "%MAKE-RATIO" "%MASK-FIELD" "%NEGATE"
             "%POW" "%RAW-BITS" "%SET-FUNCALLABLE-INSTANCE-FUNCTION"
             "%SET-FUNCALLABLE-INSTANCE-INFO" "%SET-RAW-BITS" "%SET-SAP-REF-16"
             "%SET-SAP-REF-32" "%SET-SAP-REF-8" "%SET-SAP-REF-DOUBLE"
             "%SET-SAP-REF-SAP" "%SET-SAP-REF-SINGLE" "%SET-STACK-REF" "%SIN"
             "%SINGLE-FLOAT" "%SINH" "%SP-SET-DEFINITION" "%SP-SET-PLIST"
             "%SQRT" "%SXHASH-SIMPLE-STRING" "%SXHASH-SIMPLE-SUBSTRING" "%TAN"
             "%TANH" "%UNARY-ROUND" "%UNARY-TRUNCATE" "%WITH-ARRAY-DATA"
             "*CURRENT-LEVEL*" "*EMPTY-TYPE*" "*EVAL-STACK-TOP*" "*NULL-TYPE*"
             "*PRETTY-PRINTER*" "*UNIVERSAL-TYPE*"
             "*UNPARSE-FUNCTION-TYPE-SIMPLIFY*" "*WILD-TYPE*"
             "32BIT-LOGICAL-AND" "32BIT-LOGICAL-ANDC1" "32BIT-LOGICAL-ANDC2"
             "32BIT-LOGICAL-EQV" "32BIT-LOGICAL-NAND" "32BIT-LOGICAL-NOR"
             "32BIT-LOGICAL-NOT" "32BIT-LOGICAL-OR" "32BIT-LOGICAL-ORC1"
             "32BIT-LOGICAL-ORC2" "32BIT-LOGICAL-XOR" "ALIEN-TYPE-TYPE"
             "ALIEN-TYPE-TYPE-ALIEN-TYPE" "ALIEN-TYPE-TYPE-P" "ALLOCATE-VECTOR"
             "ALWAYS-SUBTYPEP" "ARGS-TYPE" "ARGS-TYPE-ALLOWP" "ARGS-TYPE-KEYP"
             "ARGS-TYPE-KEYWORDS" "ARGS-TYPE-OPTIONAL" "ARGS-TYPE-P"
             "ARGS-TYPE-REQUIRED" "ARGS-TYPE-REST" "ARRAY-HEADER-P"
             "ARRAY-RANK" "ARRAY-TOTAL-SIZE" "ARRAY-TYPE" "ARRAY-TYPE-COMPLEXP"
             "ARRAY-TYPE-DIMENSIONS" "ARRAY-TYPE-ELEMENT-TYPE" "ARRAY-TYPE-P"
             "ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE" "ASH-INDEX" "BASE-CHAR-P"
             "BINDING-STACK-POINTER-SAP" "BIT-BASH-AND" "BIT-BASH-ANDC1"
             "BIT-BASH-ANDC2" "BIT-BASH-CLEAR" "BIT-BASH-COPY" "BIT-BASH-EQV"
             "BIT-BASH-IOR" "BIT-BASH-LOGNAND" "BIT-BASH-LOGNOR" "BIT-BASH-NOT"
             "BIT-BASH-ORC1" "BIT-BASH-ORC2" "BIT-BASH-SET" "BIT-BASH-XOR"
             "BIT-INDEX" "BOGUS-ARGUMENT-TO-VALUES-LIST-ERROR" "BOOLE-CODE"
             "BOOLEAN" "BYTE-SPECIFIER" "CALLABLE" "CHAR-INT"
             "CHECK-FOR-CIRCULARITY" "CODE-COMPONENT" "CODE-COMPONENT-P"
             "CODE-DEBUG-INFO" "CODE-HEADER-REF" "CODE-HEADER-SET"
             "CODE-INSTRUCTIONS" "CONSED-SEQUENCE" "CONSTANT-TYPE"
             "CONSTANT-TYPE-P" "CONSTANT-TYPE-TYPE" "CONTAINING-INTEGER-TYPE"
             "CONTROL-STACK-POINTER-SAP" "COPY-FROM-SYSTEM-AREA"
             "COPY-NUMERIC-TYPE" "COPY-TO-SYSTEM-AREA" "CSUBTYPEP" "CTYPE"
             "CTYPE-OF" "CTYPE-P" "CTYPEP" "CURRENT-FP" "CURRENT-SP"
             "DATA-VECTOR-REF" "DATA-VECTOR-SET" "DECODE-DOUBLE-FLOAT"
             "DECODE-SINGLE-FLOAT" "DESCEND-INTO" "DIVISION-BY-ZERO-ERROR"
             "DOUBLE-FLOAT-EXPONENT" "DOUBLE-FLOAT-HIGH-BITS"
             "DOUBLE-FLOAT-LOW-BITS" "DOUBLE-FLOAT-P"
             "DYNAMIC-SPACE-FREE-POINTER" "ERROR-NUMBER-OR-LOSE" "FILENAME"
             "FLOAT-DIGITS" "FLOAT-EXPONENT" "FLOAT-FORMAT-DIGITS"
             "FLOAT-FORMAT-MAX" "FLOAT-RADIX" "FORM" "FUNCALLABLE-INSTANCE-P"
             "FUNCTION-CODE-HEADER" "FUNCTION-TYPE" "FUNCTION-TYPE-ALLOWP"
             "FUNCTION-TYPE-KEYP" "FUNCTION-TYPE-KEYWORDS"
             "FUNCTION-TYPE-NARGS" "FUNCTION-TYPE-OPTIONAL" "FUNCTION-TYPE-P"
             "FUNCTION-TYPE-REQUIRED" "FUNCTION-TYPE-REST"
             "FUNCTION-TYPE-RETURNS" "FUNCTION-TYPE-WILD-ARGS"
             "FUNCTION-WORD-OFFSET" "GET-CLOSURE-LENGTH" "GET-HEADER-DATA"
             "GET-LISP-OBJ-ADDRESS" "GET-LOWTAG" "GET-TYPE" "HAIRY-TYPE"
             "HAIRY-TYPE-CHECK-TEMPLATE" "HAIRY-TYPE-SPECIFIER"
             "HANDLE-CIRCULARITY" "INDEX" "INTEGER-DECODE-DOUBLE-FLOAT"
             "INTEGER-DECODE-SINGLE-FLOAT" "INTERNAL-TIME"
             "INVALID-ARGUMENT-COUNT-ERROR" "INVALID-ARRAY-INDEX-ERROR"
             "INVALID-UNWIND-ERROR" "IRRATIONAL" "KEY-INFO" "KEY-INFO-NAME"
             "KEY-INFO-P" "KEY-INFO-TYPE" "LEXICAL-ENVIRONMENT" "LRA"
             "LRA-CODE-HEADER" "LRA-P" "MAKE-ALIEN-TYPE-TYPE" "MAKE-ARGS-TYPE"
             "MAKE-ARRAY-HEADER" "MAKE-DOUBLE-FLOAT" "MAKE-FUNCTION-TYPE"
             "MAKE-KEY-INFO" "MAKE-LISP-OBJ" "MAKE-MEMBER-TYPE"
             "MAKE-NAMED-TYPE" "MAKE-NUMERIC-TYPE" "MAKE-SINGLE-FLOAT"
             "MAKE-STRUCTURE" "MAKE-STRUCTURE-TYPE" "MAKE-UNION-TYPE"
             "MAKE-VALUES-TYPE" "MEMBER-TYPE" "MEMBER-TYPE-MEMBERS"
             "MEMBER-TYPE-P" "MERGE-BITS" "MUTATOR-SELF" "NAMED-TYPE"
             "NAMED-TYPE-NAME" "NAMED-TYPE-P" "NATIVE-BYTE-ORDER" "NEGATE"
             "NEVER-SUBTYPEP" "NIL-FUNCTION-RETURNED-ERROR" "NOT-<=-ERROR"
             "NOT-=-ERROR" "NUMERIC-CONTAGION" "NUMERIC-TYPE"
             "NUMERIC-TYPE-CLASS" "NUMERIC-TYPE-COMPLEXP" "NUMERIC-TYPE-FORMAT"
             "NUMERIC-TYPE-HIGH" "NUMERIC-TYPE-LOW" "NUMERIC-TYPE-P"
             "OBJECT-NOT-ARRAY-ERROR" "OBJECT-NOT-BASE-CHAR-ERROR"
             "OBJECT-NOT-BIGNUM-ERROR" "OBJECT-NOT-BIT-VECTOR-ERROR"
             "OBJECT-NOT-COERCABLE-TO-FUNCTION-ERROR"
             "OBJECT-NOT-COMPLEX-ERROR" "OBJECT-NOT-CONS-ERROR"
             "OBJECT-NOT-DOUBLE-FLOAT-ERROR" "OBJECT-NOT-FIXNUM-ERROR"
             "OBJECT-NOT-FLOAT-ERROR" "OBJECT-NOT-FUNCTION-ERROR"
             "OBJECT-NOT-FUNCTION-OR-SYMBOL-ERROR" "OBJECT-NOT-INTEGER-ERROR"
             "OBJECT-NOT-LIST-ERROR" "OBJECT-NOT-NUMBER-ERROR"
             "OBJECT-NOT-RATIO-ERROR" "OBJECT-NOT-RATIONAL-ERROR"
             "OBJECT-NOT-REAL-ERROR" "OBJECT-NOT-SAP-ERROR"
             "OBJECT-NOT-SIGNED-BYTE-32-ERROR"
             "OBJECT-NOT-SIMPLE-ARRAY-DOUBLE-FLOAT-ERROR"
             "OBJECT-NOT-SIMPLE-ARRAY-ERROR"
             "OBJECT-NOT-SIMPLE-ARRAY-SINGLE-FLOAT-ERROR"
             "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-16-ERROR"
             "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-2-ERROR"
             "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-32-ERROR"
             "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-4-ERROR"
             "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-8-ERROR"
             "OBJECT-NOT-SIMPLE-BIT-VECTOR-ERROR"
             "OBJECT-NOT-SIMPLE-STRING-ERROR" "OBJECT-NOT-SIMPLE-VECTOR-ERROR"
             "OBJECT-NOT-SINGLE-FLOAT-ERROR" "OBJECT-NOT-STRING-ERROR"
             "OBJECT-NOT-STRUCTURE-ERROR" "OBJECT-NOT-SYMBOL-ERROR"
             "OBJECT-NOT-TYPE-ERROR" "OBJECT-NOT-UNSIGNED-BYTE-32-ERROR"
             "OBJECT-NOT-VECTOR-ERROR" "OBJECT-NOT-WEAK-POINTER-ERROR"
             "ODD-KEYWORD-ARGUMENTS-ERROR" "OUTPUT-OBJECT" "OUTPUT-UGLY-OBJECT"
             "PARSE-LAMBDA-LIST" "PARSE-UNKNOWN-TYPE"
             "PARSE-UNKNOWN-TYPE-SPECIFIER" "PATHNAME-DEVICE"
             "PATHNAME-DIRECTORY" "PATHNAME-HOST" "PATHNAME-NAME"
             "PATHNAME-TYPE" "PATHNAME-VERSION" "PATHNAMELIKE"
             "PUNT-IF-TOO-LONG" "SCALE-DOUBLE-FLOAT" "SCALE-SINGLE-FLOAT"
             "SEQUENCE-END" "SET-HEADER-DATA" "SHIFT-TOWARDS-END"
             "SHIFT-TOWARDS-START" "SIGNAL-INIT" "SIGNED-BYTE-32-P"
             "SIMPLE-ARRAY-DOUBLE-FLOAT-P" "SIMPLE-ARRAY-P"
             "SIMPLE-ARRAY-SINGLE-FLOAT-P" "SIMPLE-ARRAY-UNSIGNED-BYTE-16-P"
             "SIMPLE-ARRAY-UNSIGNED-BYTE-2-P" "SIMPLE-ARRAY-UNSIGNED-BYTE-32-P"
             "SIMPLE-ARRAY-UNSIGNED-BYTE-4-P" "SIMPLE-ARRAY-UNSIGNED-BYTE-8-P"
             "SIMPLE-UNBOXED-ARRAY" "SINGLE-FLOAT-BITS" "SINGLE-FLOAT-EXPONENT"
             "SINGLE-FLOAT-P" "SINGLE-VALUE-TYPE" "SPECIFIER-TYPE" "STACK-REF"
             "STREAMLIKE" "STRINGABLE" "STRINGLIKE" "STRUCTURE-INDEX"
             "STRUCTURE-INDEX-REF" "STRUCTURE-INDEX-SET" "STRUCTURE-LENGTH"
             "STRUCTURE-REF" "STRUCTURE-SET" "STRUCTURE-TYPE"
             "STRUCTURE-TYPE-NAME" "STRUCTURE-TYPE-P" "SYSTEM-AREA-CLEAR"
             "SYSTEM-AREA-COPY" "TRUTH" "TWO-ARG-*" "TWO-ARG-+" "TWO-ARG--"
             "TWO-ARG-/" "TWO-ARG-/=" "TWO-ARG-<" "TWO-ARG-<=" "TWO-ARG-="
             "TWO-ARG->" "TWO-ARG->=" "TWO-ARG-AND" "TWO-ARG-GCD" "TWO-ARG-IOR"
             "TWO-ARG-LCM" "TWO-ARG-XOR" "TYPE-DIFFERENCE" "TYPE-EXPAND"
             "TYPE-INIT" "TYPE-INTERSECT" "TYPE-INTERSECTION" "TYPE-SPECIFIER"
             "TYPE-SPECIFIER-SYMBOLS" "TYPE-UNION" "TYPE/=" "TYPE="
             "TYPES-INTERSECT" "UNBOUND-SYMBOL-ERROR" "UNBOXED-ARRAY"
             "UNDEFINED-SYMBOL-ERROR" "UNION-TYPE" "UNION-TYPE-P"
             "UNION-TYPE-TYPES" "UNKNOWN-ERROR"
             "UNKNOWN-KEYWORD-ARGUMENT-ERROR" "UNKNOWN-TYPE" "UNKNOWN-TYPE-P"
             "UNKNOWN-TYPE-SPECIFIER" "UNSEEN-THROW-TAG-ERROR"
             "UNSIGNED-BYTE-32-P" "VALUES-SPECIFIER-TYPE"
             "VALUES-SPECIFIER-TYPE-CACHE-CLEAR" "VALUES-SUBTYPEP"
             "VALUES-TYPE" "VALUES-TYPE-ALLOWP" "VALUES-TYPE-INTERSECT"
             "VALUES-TYPE-INTERSECTION" "VALUES-TYPE-KEYP"
             "VALUES-TYPE-KEYWORDS" "VALUES-TYPE-OPTIONAL" "VALUES-TYPE-P"
             "VALUES-TYPE-REQUIRED" "VALUES-TYPE-REST" "VALUES-TYPE-UNION"
             "VALUES-TYPES" "VALUES-TYPES-INTERSECT" "VOID"
             "WITH-CIRCULARITY-DETECTION" "WRONG-NUMBER-OF-INDICES-ERROR"))