;;; -*- Mode:LISP; Package:SI; Readtable:ZL; Base:10 -*- ;;; These symbols are put onto the SYSTEM package, which uses ;;; of GLOBAL and is used-by SYSTEM-INTERNALS and COMPILER ;;; All of the symbols from SYSTEM-CONSTANT-LISTS and SYSTEM-VARIABLE-LISTS ;;; are on it as well. ;;; Also, any symbol in MICRO-CODE-SYMBOL-NAME-AREA that doesn't go in ;;; GLOBAL gets put on SYSTEM. ; ** (c) Copyright 1980 Massachusetts Institute of Technology ** (DEFCONST INITIAL-SYSTEM-SYMBOLS '( ;;; Be SURE to leave a SPACE before all symbols, because the Maclisp reader b.d.g. %BIND %1d-aloc ; %1d-aref ;brand s ar-1-force %1d-aset ; *BOOLE *BREAK-BINDINGS* *LOGAND *LOGIOR *LOGXOR *MAX *MIN ACTIVE-PROCESSES ALL-PROCESSES APPLY-LAMBDA ASSOC-EQL ASSOC-EQUAL ASSOC-EQUALP CALL-STREAM-DEFAULT-HANLDER ;used by DEFINE-FUNCTIONAL-STREAM CHECK-SYSTEM-PARAMETER CLOCK-FUNCTION-LIST ;COMMAND-LEVEL ;for ABORT key CONSING-IN-AREA CONSTANTS-PAGE DECLARED-DEFINITION ;More COMPILER vs SI problems DECODE-KEYWORD-ARGLIST DEFINE-FUNCTIONAL-STREAM ;For functions used as streams DEFINE-PARAMETER-CHECKER DEFINE-SELECT-STREAM ;For select methods used as streams DEFUN-COMPATIBILITY ;If you expect DEFUN to work DELETE-BINDING-FROM-CLOSURE DWIMIFY-ARG-PACKAGE DWIMIFY-PACKAGE DWIMIFY-PACKAGE-0 EVAL1 EXTRACT-DECLARATIONS FDEFINE-FILE-PATHNAME FDEFINITION-LOCATION ;not in GLOBAL; use LOCF FILE-LOCAL-DECLARATIONS ;Used by COMPILER and SI FIND-POSITION-IN-LIST-EQL FIND-POSITION-IN-LIST-EQUAL FSYMEVAL-IN-ENVIRONMENT FUNCALL-WITH-MAPPING-TABLE-INTERNAL FUNCTION-PARENT FUNCTION-SPEC-HANDLER GET-MACRO-ARG-DESC-POINTER ;These used by compiler. HEADER-TYPE-FEF INSERT-BINDING-IN-CLOSURE internal-< internal-> internal-= INTERPRETED-DEFINITION LAMBDA-MACRO-CALL-P LAMBDA-MACRO-EXPAND LEXPR-FUNCALL-WITH-MAPPING-TABLE-INTERNAL LISP-ERROR-HANDLER LIST-PRODUCT LIST-SUM M-EQ MACROS-EXPANDED MACRO-IN-ENVIRONMENT-P MAKE-OBSOLETE MEMBER-EQUAL ;same as GLOBAL:MEMBER MEMBER-EQUALP MESSAGECASE PAGE-BAND-FLAGS ;Brand S area name; QF expects it to exist. PRINT-SELF ;Brand S flavor/generic function things. PROPERTY-LIST-MIXIN QUOTE-EVAL-AT-LOAD-TIME RASSOC-EQL RASSOC-EQUAL RASSOC-EQUALP READ-AREA RECORD-MACROS-EXPANDED REQUIRE-CHARACTER RESET-TEMPORARY-AREA SCHEDULER-STACK-GROUP SELF-BINDING-INSTANCES SELF-FLAVOR-DECLARATION SELF-REF STANDARDIZE-FUNCTION-SPEC STORE-KEYWORD-ARG-VALUES SYSTEM-CONSTANT UNDO-DECLARATIONS-FLAG ;Used by MACRO to communicate with QC-FILE. VALIDATE-FUNCTION-SPEC WITH-HELP-STREAM WITH-SELF-ACCESSIBLE ;;; Declarations ;these are here so that brand S compatible code will not blow out trying to export ; from sys. Perhaps they should be supported? downward-function downward-funarg array-register array-register-1d ;;; Stuff part of cold-load-stream and used by TV. COLD-LOAD-STREAM KBD-CONVERT-TO-SOFTWARE-CHAR KBD-GET-HARDWARE-CHAR KBD-HARDWARE-CHAR-AVAILABLE ;;; FEF hacking. ; see also fef stuff below defined in SYS2; SGDEFS FEF-INSTRUCTION FEF-INSTRUCTION-LENGTH FEF-LIMIT-PC FEF-DEBUGGING-INFO FEF-DEBUGGING-INFO-PRESENT-P FEF-NAME ;;; Shared between LFL which is in COMPILER and stuff in SI GET-FILE-LOADED-ID SET-FILE-LOADED-ID ;;; Processor code variables CADR-TYPE-CODE LAMBDA-TYPE-CODE explorer-type-code falcon-type-code PROCESSOR-TYPE-CODE ;;; Addresses of funny parts of virtual memory. A-MEMORY-VIRTUAL-ADDRESS IO-SPACE-VIRTUAL-ADDRESS UNIBUS-VIRTUAL-ADDRESS %gc-generation-number ;;; "Entries" to DISK CLEAR-DISK-FAULT DISK-READ DISK-READ-COMPARE DISK-WRITE FIND-DISK-PARTITION FIND-DISK-PARTITION-FOR-READ FIND-DISK-PARTITION-FOR-WRITE GET-DISK-FIXNUM GET-DISK-RQB GET-DISK-STRING MEASURED-SIZE-OF-PARTITION PAGE-IN-AREA PAGE-IN-ARRAY PAGE-IN-PIXEL-ARRAY PAGE-IN-REGION PAGE-IN-STRUCTURE PAGE-IN-WORDS PAGE-OUT-AREA PAGE-OUT-ARRAY PAGE-OUT-PIXEL-ARRAY PAGE-OUT-REGION PAGE-OUT-STRUCTURE PAGE-OUT-WORDS PARTITION-COMMENT POWER-UP-DISK PUT-DISK-FIXNUM PUT-DISK-STRING RETURN-DISK-RQB RQB-8-BIT-BUFFER RQB-BUFFER RQB-NPAGES UPDATE-PARTITION-COMMENT ;;; Macros and functions for (compiler and other sorts of) warnings. FILE-OPERATION-WITH-WARNINGS OBJECT-OPERATION-WITH-WARNINGS RECORD-WARNING RECORD-UNDEFINED-WARNING ;;; Symbols defined by SYS2;SGDEFS. These should be in SYSTEM just like those ;;; symbols defined by QCOM. SG-NAME SG-REGULAR-PDL SG-REGULAR-PDL-LIMIT SG-SPECIAL-PDL SG-SPECIAL-PDL-LIMIT SG-INITIAL-FUNCTION-INDEX SG-UCODE SG-TRAP-TAG SG-RECOVERY-HISTORY SG-FOOTHOLD-DATA SG-STATE SG-CURRENT-STATE SG-FOOTHOLD-EXECUTING-FLAG SG-PROCESSING-ERROR-FLAG SG-PROCESSING-INTERRUPT-FLAG SG-SAFE SG-INST-DISP SG-IN-SWAPPED-STATE SG-SWAP-SV-ON-CALL-OUT SG-SWAP-SV-OF-SG-THAT-CALLS-ME SG-PREVIOUS-STACK-GROUP SG-CALLING-ARGS-POINTER SG-CALLING-ARGS-NUMBER SG-TRAP-AP-LEVEL SG-REGULAR-PDL-POINTER SG-SPECIAL-PDL-POINTER SG-AP SG-IPMARK SG-TRAP-MICRO-PC ;SG-ERROR-HANDLING-SG ;SG-INTERRUPT-HANDLING-SG SG-SAVED-QLARYH SG-SAVED-QLARYL SG-SAVED-M-FLAGS SG-FLAGS-QBBFL SG-FLAGS-CAR-SYM-MODE SG-FLAGS-CAR-NUM-MODE SG-FLAGS-CDR-SYM-MODE SG-FLAGS-CDR-NUM-MODE SG-FLAGS-DONT-SWAP-IN SG-FLAGS-TRAP-ENABLE SG-FLAGS-MAR-MODE SG-FLAGS-PGF-WRITE SG-FLAGS-METER-ENABLE SG-FLAGS-TRAP-ON-CALL SG-AC-K SG-AC-S SG-AC-J SG-AC-I SG-AC-Q SG-AC-R SG-AC-T SG-AC-E SG-AC-D SG-AC-C SG-AC-B SG-AC-A SG-AC-ZR SG-AC-2 SG-AC-1 SG-VMA-M1-M2-TAGS SG-SAVED-VMA SG-PDL-PHASE REGULAR-PDL-SG SPECIAL-PDL-SG RP-CALL-WORD RP-EXIT-WORD RP-ENTRY-WORD RP-FUNCTION-WORD RP-DOWNWARD-CLOSURE-PUSHED RP-ADI-PRESENT RP-DESTINATION RP-DELTA-TO-OPEN-BLOCK RP-DELTA-TO-ACTIVE-BLOCK RP-MICRO-STACK-SAVED RP-PC-STATUS RP-BINDING-BLOCK-PUSHED RP-EXIT-PC RP-NUMBER-ARGS-SUPPLIED RP-LOCAL-BLOCK-ORIGIN RP-TRAP-ON-EXIT rp-attention FEF-INITIAL-PC FEF-NO-ADL-P FEF-FAST-ARGUMENT-OPTION-P FEF-SPECIALS-BOUND-P FEF-LENGTH FEF-FAST-ARGUMENT-OPTION-WORD FEF-BIT-MAP-P FEF-BIT-MAP FEF-NUMBER-OF-LOCALS FEF-ADL-ORIGIN FEF-ADL-LENGTH ;;; Standard fundamental error flavors WARNING PROCEED-WITH-VALUE-MIXIN AUTOMATIC-ABORT-DEBUGGER-MIXIN NO-ACTION-MIXIN ;;; Standard error flavors. ARITHMETIC-ERROR BAD-ARRAY-MIXIN BAD-CONNECTION-STATE CELL-CONTENTS-ERROR CONNECTION-ERROR END-OF-FILE LOCAL-NETWORK-ERROR NETWORK-ERROR PACKAGE-ERROR PACKAGE-NOT-FOUND READ-END-OF-FILE READ-ERROR REMOTE-NETWORK-ERROR UNBOUND-VARIABLE ;;; A few signal-names, not advertised, but here for communication with signalers. BAD-CONNECTION-STATE-1 CONNECTION-ERROR-1 END-OF-FILE-1 READ-ERROR-1 ;;; Standard error condition names. ABORT AREA-OVERFLOW ARRAY-HAS-NO-LEADER ARRAY-WRONG-NUMBER-OF-DIMENSIONS BAD-ARRAY-ERROR BAD-ARRAY-TYPE BAD-CDR-CODE BAD-DATA-TYPE-IN-MEMORY BAD-INTERNAL-MEMORY-SELECTOR-ARG BAD-KEYWORD-ARGLIST BIGNUM-NOT-BIG-ENOUGH-DPB BITBLT-DESTINATION-TOO-SMALL BREAK-CONDITION BREAKPOINT CALL-TRAP CONNECTION-CLOSED CONNECTION-LOST CONNECTION-NO-MORE-DATA CONNECTION-REFUSED CONS-IN-FIXED-AREA CONS-ZERO-SIZE DATA-TYPE-SCREWUP DISK-ERROR DIVIDE-BY-ZERO DRAW-OFF-END-OF-SCREEN DRAW-ON-UNPREPARED-SHEET EXIT-TRAP EXTERNAL-SYMBOL-NOT-FOUND FAILED-ASSERTION FILL-POINTER-NOT-FIXNUM FIXNUM-OVERFLOW FLOATING-EXPONENT-OVERFLOW FLOATING-EXPONENT-UNDERFLOW FUNCALL-MACRO HOST-NOT-RESPONDING-DURING-CONNECTION HOST-STOPPED-RESPONDING IALLB-TOO-SMALL ILLEGAL-EXPT ;includes what was zero-to-negative-power ILLEGAL-INSTRUCTION INVALID-FORM INVALID-FUNCTION INVALID-FUNCTION-SPEC INVALID-LAMBDA-LIST LOCK-TIMEOUT MAR-BREAK MICRO-CODE-ENTRY-OUT-OF-RANGE MISSING-CLOSEPAREN MVR-BAD-NUMBER NAME-CONFLICT ;what slime call package-name-conflict ;NEGATIVE-SQRT NETWORK-RESOURCES-EXHAUSTED NO-MAPPING-TABLE NO-MAPPING-TABLE-1 NO-SERVER-UP NUMBER-ARRAY-NOT-ALLOWED PACKAGE-ERROR PACKAGE-NOT-FOUND PACKAGE-NOT-FOUND-1 PARSE-ERROR PARSE-FERROR PDL-OVERFLOW PRINT-NOT-READABLE PRINT-READABLY PRINTING-RANDOM-OBJECT READ-LIST-END-OF-FILE READ-PACKAGE-NOT-FOUND READ-STRING-END-OF-FILE READ-SYMBOL-END-OF-FILE REDEFINITION REGION-TABLE-OVERFLOW RPLACD-WRONG-REPRESENTATION-TYPE SELECT-METHOD-BAD-SUBROUTINE-CALL SELECT-METHOD-GARBAGE-IN-SELECT-METHOD-LIST SELECTED-METHOD-NOT-FOUND SELF-NOT-INSTANCE SG-RETURN-UNSAFE STACK-FRAME-TOO-LARGE STEP-BREAK STREAM-CLOSED STREAM-INVALID SUBSCRIPT-OUT-OF-BOUNDS ;SYMBOL-NAME-CONFLICT THROW-EXIT-TRAP THROW-TAG-NOT-SEEN TOO-FEW-ARGUMENTS TOO-MANY-ARGUMENTS UNBOUND-CLOSURE-VARIABLE UNBOUND-INSTANCE-VARIABLE UNBOUND-LOCAL-VARIABLE ;Never signaled, at the present time. UNBOUND-SYMBOL UNBOUND-VARIABLE UNCLAIMED-MESSAGE UNDEFINED-FUNCTION UNDEFINED-KEYWORD-ARGUMENT UNKNOWN-ADDRESS UNKNOWN-HOST-NAME UNKNOWN-LOCF-REFERENCE UNKNOWN-SETF-REFERENCE VIRTUAL-MEMORY-OVERFLOW WRITE-IN-READ-ONLY WRONG-STACK-GROUP-STATE WRONG-TYPE-ARGUMENT ZERO-ARGS-TO-SELECT-METHOD ZERO-LOG ZERO-TO-NEGATIVE-POWER ;subsumed by sys:illegal-expt ))