TOPS-20/TENEX MacLISP 2103 Functions and Other Features This file was created by JONL on Friday, May 1, 1981 at 11:35 AM User SUBRs: *-READ-EVAL-PRINT COPYSYMBOL NORET *BREAK COS NOT *DEPOSIT-BYTE CXR NOUUO *DIF DEFAULTF NRECONC *DPB DELETEF NREVERSE *LDB DEPOSIT NTH *LOAD-BYTE DEPOSIT-BYTE NTHCDR *NOPOINT DISPLACE NULL *QUO DPB NUMBERP *READ EQ ODDP *READCH EQUAL OUT *RSET ERRFRAME PAIRP *THROW EVALFRAME PLIST *TYI EXAMINE PLUSP +TYI EXP PNGET +TYO EXPLODE PNPUT 1+ EXPLODEC PROBEF 1+$ EXPLODEN PUREP 1- EXPT PUTPROP 1-$ FASLP QMARK < FBOUNDP READ-*-EVAL-PRINT = FILEP READ-EVAL-*-PRINT > FILLARRAY READ-EVAL-PRINT-* ABS FIX READLIST ADD1 FIXNUM-IDENTITY RECLAIM ALLOC FIXP REMAINDER ALPHALESSP FLATC REMOB ARG FLATSIZE REMPROP ARRAY-#-DIMS FLOAT RENAMEF ARRAY-DIMENSION-N FLOATP RETURN ARRAY-TYPE FLONUM-IDENTITY REVERSE ARRAYDIMS FORCE-OUTPUT ROT ASCII FRETRY RPLACA ASH FRETURN RPLACD ASSOC FSC RPLACX ASSQ GC RUNTIME ATAN GCD SAMEPNAMEP ATOM GET SASSOC BIGP GETCHAR SASSQ BOUNDP GETCHARN SET CAAAAR GETL SETARG CAAADR HAIPART SETPLIST CAAAR HAULONG SETSYNTAX CAADAR HUNKP SFA-CALL CAADDR HUNKSIZE SFA-CREATE CAADR IFIX SFA-GET CAAR IMPLODE SFA-STORE CADAAR IN SFAP CADADR INCLUDEF SHORTNAMESTRING CADAR INPUSH SIN CADDAR INTERN SLEEP CADDDR LAST SQRT CADDR LDB SUB1 CADR LENGTH SUBLIS CAR LENGTHF SUBR CDAAAR LISTIFY SUBST CDAADR LOAD SXHASH CDAAR LOAD-BYTE SYMBOLP CDADAR LOG SYMEVAL CDADDR LSH SYSP CDADR MAKE-LIST TIME CDAR MAKHUNK TRUENAME CDDAAR MAKNAM TYPEP CDDADR MAKNUM UNTYI CDDAR MAKUNBOUND VALUE-CELL-LOCATION CDDDAR MEMBER WRITEABLEP CDDDDR MEMQ XCONS CDDDR MERGEF ZEROP CDDR MINUS \ CDR MINUSP \\ CLEAR-INPUT MUNKAM ^ CLEAR-OUTPUT NAMELIST ^$ CLOSE NAMESTRING ^G CNAMEF NCONS CONS NOINTERRUPT User FSUBRs: *CATCH DECLARE LSUBRCALL SUBRCALL *FUNCTION DEFPROP OR UAPPEND AND DEFUN POP UCLOSE ARRAY DO PROG UFILE ARRAYCALL ERR PROGV UKILL BREAK ERRSET PUSH UNWIND-PROTECT CASEQ EVAL-WHEN QUOTE UPROBE CATCH-BARRIER FASLOAD SETQ UREAD CATCHALL FUNCTION SIGNP UWRITE COMMENT GCTWA SSTATUS COND GO STATUS CRUNIT INCLUDE STORE User LSUBRs: * DELQ LIST* PRINT-OBJECT *$ DIFFERENCE LISTARRAY PROG1 *ARRAY ENDPAGEFN LISTEN PROG2 *REARRAY EOFFN MAP PROGN + ERROR MAPATOMS QUIT +$ ERRPRINT MAPC QUOTIENT - EVAL MAPCAN RANDOM -$ EVALHOOK MAPCAR READ / FILEPOS MAPCON READCH /$ FLATSIZE-OBJECT MAPLIST READLINE APPEND FUNCALL MAX RUBOUT APPLY GENSYM MIN SUSPEND ARGS GETSP NCONC TERPRI BAKLIST GREATERP OPEN TIMES BAKTRACE HUNK PAGEL TYI BOOLE LESSP PAGENUM TYIPEEK CHARPOS LEXPR-FUNCALL PLUS TYO CURSORPOS LINEL PRIN1 VALRET DELASSQ LINENUM PRINC DELETE LIST PRINT STATUS options (* = can use with SSTATUS too): * + FXPDL PDLNAMES * TTY * ABBREVIATE * GCMAX PDLROOOM * TTYCONS ARRAY * GCMIN PDLSIZE TTYIF ? BPSH * GCSIZE * PUNT * TTYINT BPSL * GCTIME PURSIZE TTYOF ? * BREAK HOMEDIR PURSPACENAMES * TTYREAD * CALLI ? HSNAM * RANDOM * TTYSCAN * CHTRAN JCL SEGLOG TTYSIZE * CRFIL JNAME * SENDI ? TTYTYPE * CRUNIT JNUMBER SITE UDIR DATE * LINMODE SPCNAMES UNAME DAYTIME LISPVERSION SPCSIZE * UREAD * DIVOV * LOSEF SPDL USERI DOW * MACRO SSTATUS * USRHU ? * EVALHOOK MEMFREE STATUS * UUOLINKS FASLN ? NEWLINE SUBSYS * UWRITE FASLOAD * NOFEATURE * SXHAS ? * VECTO ? * FEATURE * NOINT ? * SYNTAX XUNAM FILEMODE OPSYS ? SYSTEM * _ FILES ? OSPEED TABSIZE FLPDL PDL * TERPRI * FLUSH * PDLMAX * TOPLEVEL Initial arrays: OBARRAY READTABLE STR:ARRAY Initial User AUTOLOAD properties: NAME OF ATOM INITIAL VALUE **CLASS-SELF-EVAL** ((LISP) EXTEND FASL) **SELF-EVAL** ((LISP) EXTSTR FASL) *:FIXNUM-TO-CHARACTER ((LISP) STRING FASL) <= ((LISP) MLSUB FASL) >= ((LISP) MLSUB FASL) ADD-METHOD ((LISP) EXTEND FASL) BLTARRAY ((LISP) BLTARRAY FASL) CATCH ((LISP) MLMAC FASL) CERROR ((LISP) CERROR FASL) CGOL ((LISP) CGOL FASL) CGOLREAD ((LISP) CGOL FASL) CHECK-SUBSEQUENCE ((LISP) ERRCK FASL) CHECK-TYPE ((LISP) ERRCK FASL) CLASS-OF ((LISP) EXTEND FASL) CLASSP ((LISP) EXTEND FASL) DEFBOTHMACRO ((LISP) MACAID FASL) DEFCLASS* ((LISP) EXTMAC FASL) DEFCOMPLRMAC ((LISP) MACAID FASL) DEFINE-LOOP-PATH ((LISP) LOOP FASL) DEFMACRO ((LISP) DEFMACRO FASL) DEFMACRO-DISPLACE ((LISP) DEFMACRO FASL) DEFMETHOD* ((LISP) EXTMAC FASL) DEFSHARP ((LISP) SHARPM FASL) DEFSIMPLEMAC ((LISP) MACAID FASL) DEFUN& ((LISP) DEFMACRO FASL) DEFVAR ((LISP) MLMAC FASL) DEFVST ((LISP) DEFVST FASL) DESCRIBE ((LISP) DESCRIBE FASL) DESETQ ((LISP) LET FASL) DESETQ-EXPANDER-1 ((LISP) LET FASL) DUMPARRAYS ((LISP) DUMPARRAYS FASL) EDIT ((LISP) EDIT FASL) ERROR-RESTART ((LISP) CERROR FASL) EVENP ((LISP) MLSUB FASL) EXTENDP ((LISP) EXTEND FASL) FERROR ((LISP) CERROR FASL) FIND-METHOD ((LISP) EXTEND FASL) FIXNUMP ((LISP) MLSUB FASL) FLATTEN-SYMS ((LISP) MACAID FASL) FLONUMP ((LISP) MLSUB FASL) FLUSH-MACROMEMOS ((LISP) DEFMAX FASL) FORMAT ((LISP) FORMAT FASL) GETMIDASOP ((LISP) GETMIDASOP FASL) GRIND ((LISP) GRIND FASL) GRIND0 ((LISP) GRIND FASL) GRINDEF ((LISP) GRINDEF FASL) HERALD ((LISP) MLMAC FASL) IF ((LISP) MLMAC FASL) LAP ((LISP) LAP FASL) LAP-A-LIST ((LISP) LAP FASL) LEDIT ((LISP) LEDIT FASL) LET ((LISP) LET FASL) LET* ((LISP) LET FASL) LET*-EXPANDER-1 ((LISP) LET FASL) LET-EXPANDER-1 ((LISP) LET FASL) LISTP ((LISP) MLSUB FASL) LOADARRAYS ((LISP) DUMPARRAYS FASL) LOGAND ((LISP) MLSUB FASL) LOGIOR ((LISP) MLSUB FASL) LOGNOT ((LISP) MLSUB FASL) LOGXOR ((LISP) MLSUB FASL) LOOP ((LISP) LOOP FASL) MACRO ((LISP) DEFMACRO FASL) MACROEXPAND ((LISP) DEFMAX FASL) MACROEXPAND-1 ((LISP) DEFMAX FASL) MACROEXPAND-1* ((LISP) DEFMAX FASL) MACROEXPAND-1*M ((LISP) DEFMAX FASL) MACROEXPANDED ((LISP) DEFMAX FASL) MACROFETCH ((LISP) DEFMAX FASL) MACROMEMO ((LISP) DEFMAX FASL) MAKE-STRING ((LISP) STRING FASL) MULTIPLE-VALUE ((LISP) MLMAC FASL) MULTIPLE-VALUE-BIND ((LISP) MLMAC FASL) MULTIPLE-VALUE-LIST ((LISP) MLMAC FASL) PSETQ ((LISP) MLMAC FASL) PTR-TYPEP ((LISP) EXTEND FASL) READMACROINVERSE ((LISP) GRINDEF FASL) REPLACE ((LISP) SUBSEQ FASL) SELECTQ ((LISP) MLMAC FASL) SEND ((LISP) EXTEND FASL) SETF ((LISP) SETF FASL) SETQ-IF-UNBOUND ((LISP) MLMAC FASL) SETSYNTAX-SHARP-MACRO ((LISP) SHARPM FASL) SETVST ((LISP) DEFVSX FASL) SFA-UNCLAIMED-MESSAGE ((LISP) EXTSFA FASL) SI:CHECK-MULTIPLICITIES ((LISP) MLSUB FASL) SI:CHECK-SUBSEQUENCER ((LISP) ERRCK FASL) SI:CHECK-TYPER ((LISP) ERRCK FASL) SI:DEFCLASS*-1 ((LISP) EXTEND FASL) SI:DEFCLASS*-2 ((LISP) EXTSTR FASL) SI:EXTEND ((LISP) EXTBAS FASL) SI:EXTEND-LENGTH ((LISP) EXTBAS FASL) SI:EXTENDP ((LISP) EXTEND FASL) SI:MAKE-EXTEND ((LISP) EXTBAS FASL) SI:XREF ((LISP) EXTBAS FASL) SI:XSET ((LISP) EXTBAS FASL) SORT ((LISP) SORT FASL) SORTCAR ((LISP) SORT FASL) SPRIN1 ((LISP) GRINDEF FASL) SPRINTER ((LISP) GRINDEF FASL) STRING-PNPUT ((LISP) STRING FASL) STRUCT-LET ((LISP) DEFVST FASL) STRUCT-SETF ((LISP) DEFVST FASL) STRUCT-TYPEP ((LISP) DEFVSY FASL) SUBSEQ ((LISP) SUBSEQ FASL) SYMBOLCONC ((LISP) MACAID FASL) THROW ((LISP) MLMAC FASL) TO-BITS ((LISP) SUBSEQ FASL) TO-LIST ((LISP) SUBSEQ FASL) TO-STRING ((LISP) SUBSEQ FASL) TO-VECTOR ((LISP) SUBSEQ FASL) TRACE ((LISP) TRACE FASL) VALUES ((LISP) MLMAC FASL) VALUES-LIST ((LISP) MLSUB FASL) WHICH-OPERATIONS ((LISP) DESCRIBE FASL) WITH-INTERRUPTS ((LISP) MLMAC FASL) WITHOUT-INTERRUPTS ((LISP) MLMAC FASL) WITHOUT-TTY-INTERRUPTS ((LISP) MLMAC FASL) Y-OR-N-P ((LISP) YESNOP FASL) YES-OR-NO-P ((LISP) YESNOP FASL) LAP and FASLOAD functions: *APPEND *NCONC *TYO PURCOPY *APPLY *PLUS FASLAPSETUP| PURIFY *DELETE *PRIN1 GCPROTECT PUTDDTSYM *DELQ *PRINC GETDDTSYM TTSR| *EVAL *PRINT LAPSETUP| *GREAT *TERPRI LH| *LESS *TIMES PAGEBPORG Internal system functions: +INTERNAL-"-MACRO +INTERNAL-SET-STRING-WORD-N +INTERNAL-'-MACRO +INTERNAL-STRING-WORD-N +INTERNAL-*RSET-BREAK +INTERNAL-TTY-ENDPAGEFN +INTERNAL-;-MACRO +INTERNAL-TTYSCAN-SUBR +INTERNAL-AUTOLOAD +INTERNAL-UBV-BREAK +INTERNAL-CARCDRP +INTERNAL-UDF-BREAK +INTERNAL-CHAR-N +INTERNAL-UGT-BREAK +INTERNAL-FAC-BREAK +INTERNAL-UREAD-EOFFN +INTERNAL-GCL-BREAK +INTERNAL-WNA-BREAK +INTERNAL-GCO-BREAK +INTERNAL-WTA-BREAK +INTERNAL-INCLUDE-EOFFN +INTERNAL-^B-BREAK +INTERNAL-IOL-BREAK +INTERNAL-^Q-MACRO +INTERNAL-PDL-BREAK +INTERNAL-^S-MACRO +INTERNAL-RPLACHAR-N +INTERNAL-|-MACRO Internal system AUTOLOAD properties: NAME OF ATOM INITIAL VALUE |&r-l/|| ((LISP) DEFMACRO FASL) +INTERNAL-/#-MACRO ((LISP) SHARPM FASL) |+INTERNAL-,-macro/|| ((LISP) BACKQ FASL) +INTERNAL-DUP-P ((LISP) MACAID FASL) +INTERNAL-LOSSAGE ((LISP) CERROR FASL) +INTERNAL-POP-X ((LISP) SETF FASL) +INTERNAL-PUSH-X ((LISP) SETF FASL) +INTERNAL-SETF-X ((LISP) SETF FASL) +INTERNAL-TRY-AUTOLOADP ((LISP) DEFMAX FASL) |+INTERNAL-`-macro/|| ((LISP) BACKQ FASL) MULTIPLE-VALUE-LIST/| ((LISP) MLSUB FASL) |`-expander/|| ((LISP) BACKQ FASL) |carcdrp/|| ((LISP) MACAID FASL) |constant-p/|| ((LISP) MACAID FASL) |defmacro-1/|| ((LISP) DEFMACRO FASL) |defvst-construction-1/|| ((LISP) DEFVSX FASL) |defvst-construction/|| ((LISP) DEFVSX FASL) |defvst-initialize/|| ((LISP) DEFVSY FASL) |defvst-selection-1/|| ((LISP) DEFVSX FASL) |defvst-typchk/|| ((LISP) DEFVSY FASL) |defvst-xref/|| ((LISP) DEFVSX FASL) |forget-macromemos/|| ((LISP) DEFMAX FASL) |no-funp/|| ((LISP) MACAID FASL) |side-effectsp/|| ((LISP) MACAID FASL) System variables: NAME OF ATOM INITIAL VALUE P P /#-MACRO-DATALIST NIL |&r-l/|| UNBOUND * * *-READ-EVAL-PRINT NIL *:TRUTH T *NOPOINT NIL *RSET T *RSET-TRAP +INTERNAL-*RSET-BREAK + + +INTERNAL-INTERRUPT-BOUND-VARIABLES NIL - - // NIL ARGS NIL AUTOLOAD +INTERNAL-AUTOLOAD BACKQUOTE-EXPAND-WHEN EVAL BASE 10 CAR NIL CDR NIL CLI-MESSAGE NIL COMPILER-STATE NIL DEFAULTF ((DSK LOSER) @ @) DEFMACRO-CHECK-ARGS T DEFMACRO-DISPLACE-CALL T DEFMACRO-FOR-COMPILING T DEFUN NIL DEFUN& NIL ECHOFILES NIL EDIT NIL ERRLIST NIL ERROR-BREAK-ENVIRONMENT (#OBARRAY-1200-71004 . #READTABLE-0-71006) ERRSET NIL EVAL NIL EVALHOOK NIL FAIL-ACT +INTERNAL-FAC-BREAK FASLOAD (SUBR FSUBR LSUBR) FILE-EXIT-FUNCTIONS NIL FILE-EXIT-FUNCTIONS-DEFAULT NIL GC-DAEMON NIL GC-LOSSAGE +INTERNAL-GCL-BREAK GC-OVERFLOW +INTERNAL-GCO-BREAK GCTWA NIL GRINDEF NIL HUNKP T IBASE 10 INFILE T INSTACK NIL IO-LOSSAGE +INTERNAL-IOL-BREAK MACHINE-ERROR NIL MACRO-EXPANSION-USE MACROEXPANDED MACROEXPANDED NIL MACROMEMO NIL MAKHUNK T MAR-BREAK NIL MSGFILES (T) NIL NIL NORET NIL NOUUO NIL OBARRAY #OBARRAY-1200-71004 OUTFILES NIL PDL-OVERFLOW +INTERNAL-PDL-BREAK PRIN1 NIL PRINLENGTH NIL PRINLEVEL NIL PURCOPY NIL READ NIL READ-*-EVAL-PRINT NIL READ-EVAL-*-PRINT NIL READ-EVAL-PRINT-* NIL READTABLE #READTABLE-0-71006 SYMBOLS NIL SYS-DEATH NIL T T TERPRI T TTY 24 TTY-RETURN NIL TTYSCAN-STRINGERS/| ((73 . 15) (174 . 174) (42 . 42)) TYI #FILE-IN-|PRIMARY:*.|-71012 TYO #FILE-OUT-|PRIMARY:*.|-71014 UNBND-VRBL +INTERNAL-UBV-BREAK UNDF-FNCTN +INTERNAL-UDF-BREAK UNSEEN-GO-TAG +INTERNAL-UGT-BREAK UREAD NIL UWRITE NIL WRNG-NO-ARGS +INTERNAL-WNA-BREAK WRNG-TYPE-ARG +INTERNAL-WTA-BREAK ZFUZZ NIL ZUNDERFLOW NIL ^A NIL ^D NIL ^Q NIL ^R NIL ^W NIL |carcdrp/|| T LAP and FASLOAD variables: NAME OF ATOM INITIAL VALUE *PURE NIL BPEND 124547 BPORG 124160 GCPROTECT NIL LAPSETUP/| NIL PURCLOBRL NIL PURE 1 PUTPROP (+INTERNAL-STRING-MARKER SUBR FSUBR LSUBR) TTSR/| 12666