LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760031445. :SYSTEM-TYPE :LOGICAL :VERSION 20. :TYPE "LISP" :NAME "INITIAL-TICL-SYMBOLS" :DIRECTORY ("REL3-SOURCE" "KERNEL") :SOURCE-PATTERN "( :DIRECTORY (\"REL3-SOURCE\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :VERSION-LIMIT 0. :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2758640451. :AUTHOR "REL3" :LENGTH-IN-BYTES 17863. :LENGTH-IN-BLOCKS 18. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ;;;-*- Mode: Common-Lisp; Package: SI; Base: 10.; Cold-Load: T -*-;;;                           RESTRICTED RIGHTS LEGEND;;;Use, duplication, or disclosure by the Government is subject to;;;restrictions as set forth in subdivision (b)(3)(ii) of the Rights in;;;Technical Data and Computer Software clause at 52.227-7013.;;;                     TEXAS INSTRUMENTS INCORPORATED.;;;                              P.O. BOX 2909;;;                           AUSTIN, TEXAS 78769;;;                                 MS 2151;; Copyright (c) 1986,1987 Texas Instruments Incorporated.  All Rights Reserved.;;;  Initial Symbols in the TICL (TI Common Lisp) Package.;;;  Contains as external symbols TI's language and user interface;;;  extensions to Common Lisp, as well as all development utilities.;;;  Implementation-dependent extensions are not intended to be in;;;  this package.  Unadvertised symbols that implement TI extensions;;;  to Common Lisp may someday reside as internal symbols within the ;;;  TICL package.(defconstant *INITIAL-TICL-SYMBOLS*     'TICL:(       ;;;  Lambda-list keywords not in the LISP package.              &EVAL       &EXTENSION       &FUNCTIONAL       &LIST-OF       &LOCAL       &QUOTE       &SPECIAL                     ;;;  Variables and Function Names       %DIV       *ALL-FLAVOR-NAMES*               *ALL-FLAVOR-NAMES-AARRAY*       *CURRENT-STACK-GROUP*       *CURRENT-STACK-GROUP-RESUMER*       *DOCUMENTATION-VIEWED-SO-FAR*;globalized by UCL       *ERRSET*       *GLOBAL-PACKAGE*       *KEYWORD-PACKAGE*       *LISP-PACKAGE*       *NOPOINT       *PRINT-BASE-SUBSCRIPT*       *PRINT-STRUCTURE*       *RSET       *STEP-FORM*       *STEP-VALUE*       *STEP-VALUES*       *SYSTEM-PACKAGE*       *TICL-PACKAGE*       *UNWIND-STACK       *USER-PACKAGE*       *VALUES*       *ZLC-PACKAGE*              ADD-INITIALIZATION       ADD-LOGICAL-PATHNAME-HOST       ADD-PRINTER-DEVICE       ADVISE              ADVISE-WITHIN       ALL-DIRECTORIES       ALL-OPEN-FILES       ALLOCATE-RESOURCE       ALOC       ALPHABETIC-CASE-AFFECTS-STRING-COMPARISON       ALPHALESSP       AP-1       AP-1-FORCE              AP-2              AP-3       AP-LEADER       APPEND-TO-ARRAY       APROPOSB       APROPOSF       APROPOS-FLAVOR       APROPOS-RESOURCE       APROPOS-METHOD       AR-1       AR-1-FORCE       AR-2       AR-3       AREA-LIST       AREA-NAME       AROUND-METHOD-CONTINUE       ARRAY-ACTIVE-LENGTH              ARRAY-BITS-PER-ELEMENT       ARRAY-DISPLACED-P       ARRAY-ELEMENT-SIZE       ARRAY-ELEMENTS-PER-Q       ARRAY-HAS-LEADER-P       ARRAY-INDEXED-P       ARRAY-INDIRECT-P       ARRAY-INITIALIZE       ARRAY-LEADER       ARRAY-LEADER-LENGTH       ARRAY-LENGTH       ARRAY-TYPE       ARRAY-TYPES       ART-16B       ART-1B              ART-2B       ART-32B              ART-4B              ART-8B              ART-COMPLEX       ART-COMPLEX-FLOAT       ART-COMPLEX-DOUBLE-FLOAT              ART-COMPLEX-SINGLE-FLOAT       ART-DOUBLE-FLOAT              ART-ERROR              ART-FAT-STRING              ART-FIX       ART-FLOAT       ART-HALF-FIX              ART-Q             ART-Q-LIST              ART-REG-PDL       ART-SINGLE-FLOAT              ART-SPECIAL-PDL              ART-STACK-GROUP-HEAD              ART-STRING       AS-1       AS-1-FORCE       AS-2       AS-3       ASSIGN-ALTERNATE       ASSIGN-VALUES       ASSIGN-VALUES-INIT-DELTA       BEEP       BIGP       BIND       BITBLT       BITMAP-OF-PICTURE-FILE       BOUNDP-GLOBALLY       BOUNDP-IN-CLOSURE       BREAKON       BUG       BUILD-COMMAND-TABLE;UCL       BUILD-MENU;UCL       CAAR-SAFE       CADR-SAFE       CALLRPC;for Remote Procedure Call       CALLRPC-SPEC;for Remote Procedure Call       CANCEL-PRINT-REQUEST       CAR-LOCATION       CAR-SAFE       CALL       CATCH-ALL              CATCH-CONTINUATION             CATCH-CONTINUATION-IF       CATCH-ERROR       CATCH-ERROR-RESTART             CATCH-ERROR-RESTART-EXPLICIT-IF              CATCH-ERROR-RESTART-IF       CDAR-SAFE       CDDR-SAFE       CDR-ERROR       CDR-NEXT       CDR-NIL       CDR-NORMAL       CDR-SAFE       CHAR-KEYPAD        CHAR-MOUSE-BUTTON       CHAR-MOUSE-CLICKS       CHECK-ARG       CIRCULAR-LIST       CLEAR-MAR       CLEAR-RESOURCE       CLOSE-ALL-FILES            CLOSURE       CLOSURE-ALIST              CLOSURE-BINDINGS              CLOSURE-FUNCTION              CLOSURE-VARIABLES       CLOSUREP       CODE-MOUSE-CHAR       COMMENT       COMMON-LISP-ON-P       COMPILE-ENCAPSULATIONS       COMPILE-ENCAPSULATIONS-FLAG       COMPILE-FLAVOR-METHODS       COMPILE-LAMBDA       COND-EVERY       CONDITION       CONDITION-BIND       CONDITION-BIND-DEFAULT       CONDITION-BIND-DEFAULT-IF              CONDITION-BIND-IF              CONDITION-CALL       CONDITION-CALL-IF       CONDITION-CASE              CONDITION-CASE-IF       CONDITION-RESUME       CONDITION-RESUME-IF              CONDITION-TYPEP       CONS-IN-AREA       CONTENTS       CONTINUE-WHOPPER       COPY-ARRAY-CONTENTS       COPY-ARRAY-CONTENTS-AND-LEADER       COPY-ARRAY-PORTION       COPY-BITMAP-TO-FILE       COPY-CFG-MODULE       COPY-CLOSURE       COPY-DIRECTORY       COPY-FILE       COPY-SYSTEM       COPYLIST*              COSD       CURRENT-PROCESS       CURRENT-STACK-GROUP              CURRENT-STACK-GROUP-RESUMER       DATA-TYPE       DEALLOCATE-RESOURCE       DEALLOCATE-WHOLE-RESOURCE       DEBUG-IO              DEF       DEFAULT-CONS-AREA       DEFCOMMAND       DEFDECL       DEFF       DEFF-MACRO       DEFFLAVOR       DEFFUNCTION       DEFINE-LOOP-MACRO       DEFINE-LOOP-PATH              DEFINE-LOOP-SEQUENCE-PATH       DEFINE-SITE-ALIST-USER-OPTION              DEFINE-SITE-HOST-LIST       DEFINE-SITE-USER-OPTION              DEFINE-SITE-VARIABLE       DEFINE-USER-OPTION       DEFMACRO-DISPLACE              DEFMETHOD              DEFMETHOD-INSTANCE       DEFPACKAGE       DEFPROP       DEFRESOURCE       DEFSELECT       DEFSIGNAL       DEFSIGNAL-EXPLICIT       DEFSTRUCT-DEFINE-TYPE       DEFSUBST       DEFSYSTEM       DEFUN-METHOD       DEFWHOPPER       DEFWINDOW-RESOURCE       DEFWRAPPER       DELETE-DIRECTORY       DELETE-INITIALIZATION       DESCRIBE-AREA              DESCRIBE-DEFSTRUCT              DESCRIBE-FLAVOR              DESCRIBE-PACKAGE              DESCRIBE-PARTITION       DESCRIBE-REGION       DESCRIBE-SYSTEM       DESTRUCTURING-BIND       DIRED       DISK-RESTORE       DISK-SAVE       DISPATCH       DISPLACE       DO-ALL-PACKAGES       DO-FOREVER       DO-LOCAL-EXTERNAL-SYMBOLS       DO-LOCAL-SYMBOLS       DONT-OPTIMIZE       DRIBBLE-ALL       DRIBBLE-END       DRIBBLE-START       DUMP-FORMS-TO-FILE       EH       EH-ARG       EH-ERROR              EH-FRAME       EH-FUN              EH-LOC       EH-SG       EH-VAL       END-TRAINING-SESSION       ERROR-MESSAGE-HOOK       ERROR-RESTART       ERROR-RESTART-LOOP       ERRORP       ERRSET       FALSE       FASD-UPDATE-FILE       FASL-APPEND       FASLOAD       FDEFINE       FDEFINEDP              FDEFINITION       FDEFINITION-LOCATION       FED       FERROR       FILE-RETRY-NEW-PATHNAME       FILE-RETRY-NEW-PATHNAME-IF              FIND-EXTERNAL-SYMBOL       FIND-PROCESS       FIND-STRUCTURE-HEADER       FIND-STRUCTURE-LEADER       FIND-SYSTEM       FIND-WINDOW       FINGER       FIRSTN       FIXNUMP       FLATC       FLATSIZE       FLAVOR-ALLOWS-INIT-KEYWORD-P;       FLAVOR-INSPECT       FLONUM       FLONUMP       FOLLOW-CELL-FORWARDING       FOLLOW-STRUCTURE-FORWARDING       FONT       FORMAT-MACRO       FORWARD-VALUE-CELL       FQUERY       FSIGNAL       FTP       FULL-GC       FUNCALL-WITH-MAPPING-TABLE       FUNCTION-CELL-LOCATION       FUNCTION-DOCUMENTATION       FUNCTION-NAME       FUNDEFINE       G-L-P       GC-AND-DISK-SAVE       GC-IMMEDIATELY       GC-OFF              GC-ON       GC-STATUS       GET-DEFAULT-PRINTER       GET-DEFAULT-IMAGE-PRINTER       GET-HANDLER-FOR       GET-LIST-POINTER-INTO-ARRAY       GET-LIST-POINTER-INTO-STRUCT       GET-LOCATIVE-POINTER-INTO-ARRAY       GET-PRINTER-DEVICE       GET-SITE-OPTION       GETDECL       GETL       GLOSSARY       GRIND-TOP-LEVEL       GRINDEF       HAIPART       HARDCOPY-BIT-ARRAY       HARDCOPY-FILE              HARDCOPY-STATUS              HARDCOPY-STREAM       HAULONG       HOSTAT       IGNORE-ERRORS       INHIBIT-FDEFINE-WARNINGS       INHIBIT-SCHEDULING-FLAG       INHIBIT-STYLE-WARNINGS       INHIBIT-STYLE-WARNINGS-SWITCH       INIT-FILE-PATHNAME       INITIALIZATIONS       INSPECT-FLAVOR       INSPECT*       INSTALL-NEW-PROGRAM;for LOAD-DISTRIBUTION-TAPE       INSTALL-PRIM       INSTANCE       INSTANCE-VARIABLE-BOUNDP       INSTANCEP       INSTANTIATE-FLAVOR       INTERN-LOCAL       KEYWORD-EXTRACT;sys external?       KILL-PACKAGE       LET-CLOSED       LET-GLOBALLY              LET-GLOBALLY-IF       LET-IF       LETF-GLOBALLY       LEXICAL-CLOSURE       LEXPR-CONTINUE-WHOPPER       LEXPR-FUNCALL-WITH-MAPPING-TABLE       LEXPR-SEND       LISP-MODE       LIST*-IN-AREA       LIST-ARRAY-LEADER       LIST-IN-AREA       LIST-MATCH-P       LIST-PRINTERS       LISTARRAY       LISTF       LOAD-AND-SAVE-PATCHES       LOAD-PATCHES       LOCAL-DECLARATIONS       LOCATE-IN-CLOSURE              LOCATE-IN-INSTANCE       LOCATION-BOUNDP       LOCATION-MAKUNBOUND       LOCATIVE       LOCATIVEP       LOCF       LOG1       LOGIN       LOGIN-EVAL       LOGIN-FDEFINE       LOGIN-FORMS              LOGIN-SETQ       LOGOUT       LOGOUT-LIST       LOOP-FINISH       LSH       MACRO       MACRO-COMPILED-PROGRAM       MACROEXPAND-ALL       MAKE-AREA       MAKE-ARRAY-INTO-NAMED-STRUCTURE       MAKE-COMMAND;globalized in ucl       MAKE-CONDITION       MAKE-INSTANCE       MAKE-PLANE       MAKE-PROCESS       MAKE-STACK-GROUP       MAKE-SYSTEM       MAKUNBOUND-GLOBALLY       MAKUNBOUND-IN-CLOSURE       MAP-RESOURCE       MAPATOMS       MAPATOMS-ALL       MAPHASH-RETURN       MAR-BREAK       MAR-MODE       METER       METER-ANALYZE       MEXP       MICROCODE-FUNCTION       NAMED-LAMBDA       NAMED-STRUCTURE       NAMED-STRUCTURE-INVOKE              NAMED-STRUCTURE-P             NAMED-STRUCTURE-SYMBOL       NAMED-SUBST       NEQ       NEW-USER       NLEFT       NLISTP       NSUBSTRING       NSYMBOLP       NTH-SAFE       NTH-VALUE       NTHCDR-SAFE       NUMBER-INTO-ARRAY       OBSOLETE-FUNCTION-WARNING-SWITCH       ONCE-ONLY       OPEN-CODE-MAP-SWITCH       PACKAGE-CELL-LOCATION       PACKAGE-EXTERNAL-SYMBOLS       PACKAGE-PREFIX-PRINT-NAME       PARSE-NUMBER       PATHNAME-PLIST       PEEK       PERMANENT-STORAGE-AREA       PKG-BIND       PKG-FIND-PACKAGE       PKG-GLOBAL-PACKAGE       PKG-GOTO       PKG-GOTO-GLOBALLY       PKG-KEYWORD-PACKAGE       PKG-SYSTEM-PACKAGE       PLANE-AREF       PLANE-ASET       PLANE-DEFAULT       PLANE-EXTENSION       PLANE-ORIGIN              PLANE-REF              PLANE-STORE       PPRINT-DEF       PRIN1-THEN-SPACE       PRINT-BITMAP       PRINT-BITMAP-AND-WAIT       PRINT-DISK-LABEL       PRINT-ERROR-MODE       PRINT-FILE       PRINT-FILE-AND-WAIT       PRINT-GRAPHICS       PRINT-HERALD       PRINT-LOADED-BAND       PRINT-LOGIN-HISTORY       PRINT-NOTIFICATIONS       PRINT-SENDS       PRINT-STREAM       PRINT-SYSTEM-MODIFICATIONS       PROCESS-ALLOW-SCHEDULE       PROCESS-DISABLE       PROCESS-ENABLE       PROCESS-INITIAL-FORM       PROCESS-INITIAL-STACK-GROUP       PROCESS-LOCK       PROCESS-NAME       PROCESS-PRESET              PROCESS-RESET              PROCESS-RESET-AND-ENABLE       PROCESS-RUN-FUNCTION       PROCESS-RUN-RESTARTABLE-FUNCTION       PROCESS-SLEEP       PROCESS-STACK-GROUP              PROCESS-UNLOCK       PROCESS-WAIT       PROCESS-WAIT-ARGUMENT-LIST              PROCESS-WAIT-FUNCTION              PROCESS-WAIT-WITH-TIMEOUT              PROCESS-WHOSTATE       PROFILE       PROFILE-SETQ       PROGW       PROMPT-AND-READ       PROPERTY-CELL-LOCATION       PUSH-END       PUTDECL       PUTHASH;       PUTPROP       Q-DATA-TYPES;sys external?       QSEND       QSENDS-OFF       QSENDS-ON       QUERY-IO       QUOTIENT       READ-CHECK-INDENTATION       READ-DELIMITED-STRING       READ-FOR-TOP-LEVEL       READ-METER;sys external?       READ-PRESERVE-DELIMITERS       READFILE       READLINE-OR-NIL       READLINE-TRIM              READLIST       REAL       REALP       RECOMPILE-FLAVOR       REGISTERRPC;for Remote Procedure Call       REINITIALIZE-RESOURCE       REMMETHOD       REMOVE-PRINTER-DEVICE       REPORT-ALL-SHUTDOWNS       REPORT-LAST-SHUTDOWN       RESET-INITIALIZATIONS       RETURN-ARRAY       RETURN-STORAGE       ROT       ROTL       RPCINFO;for Remote Procedure Call       RUBOUT-HANDLER       RUBOUT-HANDLER-OPTIONS       RUN-IN-MACLISP-SWITCH       SELECT       SELECT-MATCH       SELECTOR       SELECTQ-EVERY       SELF       SEND       SET-CHARACTER-TRANSLATION       SET-CURRENT-BAND       SET-CURRENT-MICROLOAD       SET-DEFAULT-PRINTER       SET-DEFAULT-IMAGE-PRINTER       SET-ERROR-MODE       SET-GLOBALLY       SET-IN-CLOSURE       SET-IN-INSTANCE       SET-LISP-MODE       SET-MAR       SET-MEMORY-SIZE       SET-SYNTAX-#-MACRO-CHAR       SET-SYNTAX-FROM-DESCRIPTION       SET-SYNTAX-MACRO-CHAR       SETQ-GLOBALLY       SETSYNTAX       SETSYNTAX-SHARP-MACRO       SG-RETURN-UNSAFE;eh?       SHOWMOUNT;for Network File System       SHOW-CFG-SUMMARY       SHOW-PRINT-QUEUE       SIGNAL       SIGNAL-CONDITION              SIGNAL-PROCEED-CASE       SIND       SITE-NAME       SMALL-FLOAT       SMALL-FLOATP       SMALL-FLONUM       SORT-GROUPED-ARRAY       SORT-GROUPED-ARRAY-GROUP-KEY       SORTCAR       STABLE-SORTCAR       STACK-GROUP       STACK-GROUP-PRESET              STACK-GROUP-RESUME       STACK-GROUP-RETURN       START-TRAINING-SESSION       STEP-FORM       STEP-VALUE       STEP-VALUES       STORE-ARRAY-LEADER              STORE-CONDITIONAL       STREAM-COPY-UNTIL-EOF       STREAM-DEFAULT-HANDLER       STRING-APPEND       STRING-APPEND-A-OR-AN       STRING-CAPITALIZE-WORDS       STRING-COMPARE       STRING-NCONC       STRING-PLURALIZE            STRING-REMOVE-FONTS       STRING-REVERSE-SEARCH-NOT-SET       STRING-REVERSE-SEARCH-SET       STRING-SEARCH-NOT-SET       STRING-SEARCH-SET       STRING-SELECT-A-OR-AN       STRING-SUBST-CHAR       STRUCTURE       STRUCTURE-BOXED-SIZE       STRUCTURE-FORWARD              STRUCTURE-TOTAL-SIZE       SUB-APROPOS       SUBSTRING-AFTER-CHAR       SWAPHASH       SYMEVAL-GLOBALLY              SYMEVAL-IN-CLOSURE              SYMEVAL-IN-INSTANCE              SYMEVAL-IN-STACK-GROUP       SYSTEM-SHUTDOWN       TELNET       TI-SHOW-LEGAL-NOTICE       TIMEIT       TIME-DIFFERENCE              TIME-INCREMENT       TIME-LESSP       TRACE-COMPILE-FLAG       TRACE-OUTPUT       TRANSLATED-PATHNAME       TRUE       TURN-COMMON-LISP-ON              TURN-ZETALISP-ON       TYI              TYIPEEK       UNADVISE              UNADVISE-WITHIN       UNBREAKON              UNDEFFLAVOR              UNDEFMETHOD             UNDEFUN       UNDELETE-FILE              UNSPECIAL       UNWIND-ALL       UPDATE-SITE-CONFIGURATION-INFO       USER-ID       USING-RESOURCE       VALUE-CELL-LOCATION       VARIABLE-BOUNDP              VARIABLE-LOCATION              VARIABLE-MAKUNBOUND       VIEW-DOCUMENTATION;globalized by ucl       VIEW-FILE       VIEW-MAIL       VT100       WHAT-FILES-CALL       WHERE-IS              WHO-CALLS              WHO-USES       WHOIS       WITH-COMMON-LISP-ON              WITH-INPUT-EDITING       WITH-LISP-MODE       WITH-LOCK       WITH-OPEN-FILE-CASE              WITH-OPEN-FILE-RETRY              WITH-OPEN-FILE-SEARCH       WITH-OPEN-STREAM-CASE       WITH-SELF-VARIABLES-BOUND       WITH-STACK-LIST              WITH-STACK-LIST*       WITH-TIMEOUT              WITH-ZETALISP-ON       WITHOUT-INTERRUPTS       WORKING-STORAGE-AREA       WRITE-METER;sys external?       WRITE-USER-OPTIONS;obsolete - remove in Rel 3.1       ZDT       ZETALISP-ON-P       ZUNDERFLOW       @DEFINE       ))ash-table (follow-structure-forwarding hash-table));             (do* ((blen (hash-table-block-length hash-table));                  (p (hash-block-pointer hash-table hash-code);                   (%make-pointer-offset dtp-locative p blen));                  (old-value);                  (emptyp ()));                 (nil);; Make P wrap around at end of table.;              ;; > is used because the pointer-difference, when time to wrap,;              ;; is actually 1 or 2 more than the array length (because it includes the header);;              ;; if BL