ITS MacLISP 2122 Functions and Other Features This file was created by JONL on Wednesday, March 10, 1982 at 2:38 PM User SUBRs: *-READ-EVAL-PRINT CONS NOINTERRUPT *BREAK COPYSYMBOL NORET *DEPOSIT-BYTE COS NOT *DIF CXR NOUUO *DPB DEFAULTF NRECONC *LDB DELETEF NREVERSE *LOAD-BYTE DEPOSIT NTH *NOPOINT DEPOSIT-BYTE NTHCDR *QUO DISPLACE NULL *READ DPB NUMBERP *READCH EQ ODDP *RSET EQUAL OUT *THROW ERRFRAME PAIRP *TYI EVALFRAME PLIST +TYI EXAMINE PLUSP +TYO EXP PNGET 1+ EXPLODE PNPUT 1+$ EXPLODEC PROBEF 1- EXPLODEN PUREP 1-$ EXPT PUTPROP < FASLP QMARK = FBOUNDP READ-*-EVAL-PRINT > FILEP READ-EVAL-*-PRINT ABS FILLARRAY READ-EVAL-PRINT-* ADD1 FIX READLIST ALARMCLOCK 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 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 SYSCALL BAKLIST GREATERP OPEN TERPRI BAKTRACE HUNK PAGEL TIMES BOOLE LESSP PAGENUM TYI CHARPOS LEXPR-FUNCALL PLUS TYIPEEK CURSORPOS LINEL PRIN1 TYO DELASSQ LINENUM PRINC VALRET DELETE LIST PRINT STATUS options (* = can use with SSTATUS too): * + * GCMAX * PDLMAX * TTYCONS * ABBREVIATE * GCMIN PDLNAMES TTYIF ? ARRAY * GCSIZE PDLROOOM * TTYINT BPSH * GCTIME PDLSIZE TTYOF ? BPSL * GCWHO * PUNT * TTYREAD * BREAK HACTRN PURSIZE * TTYSCAN * CALLI ? HOMEDIR PURSPACENAMES TTYSIZE * CHTRAN HSNAM * RANDOM TTYTYPE * CLI ITS SEGLOG UDIR * CRFIL JCL * SENDI ? UNAME * CRUNIT JNAME SITE * UREAD DATE JNUMBER SPCNAMES USERI DAYTIME * LINMODE SPCSIZE * USRHU ? * DIVOV LISPVERSION SPDL * UUOLINKS DOW * LOSEF SSTATUS * UWRITE * EVALHOOK * MACRO STATUS * VECTO ? FASLN ? * MAR SUBSYS * WHO1 FASLOAD MEMFREE * SXHAS ? * WHO2 * FEATURE NEWLINE * SYNTAX * WHO3 FILEMODE * NOFEATURE SYSTEM XUNAM FILES ? * NOINT ? TABSIZE * _ FLPDL OPSYS ? * TERPRI * FLUSH OSPEED * TOPLEVEL FXPDL PDL * TTY 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) ALLFILES ((LISP) ALLFILES 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) CREATE-JOB ((LISP) HUMBLE FASL) DEFBOTHMACRO ((LISP) MACAID FASL) DEFCLASS* ((LISP) EXTMAC FASL) DEFCOMPLRMAC ((LISP) MACAID FASL) DEFCONST ((LISP) MLMAC 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) DIRECTORY ((LISP) ALLFILES 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) INF-EDIT ((LISP) LISPT 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) LISPT ((LISP) LISPT 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) MAPALLFILES ((LISP) ALLFILES FASL) MAPDIRECTORY ((LISP) ALLFILES 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-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 ALARMCLOCK 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-70004 . #READTABLE-0-70006) 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-70004 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-70006 SYMBOLS NIL SYS-DEATH NIL T T TERPRI T TTY 11 TTY-RETURN NIL TTYSCAN-STRINGERS/| ((73 . 15) (174 . 174) (42 . 42)) TYI #FILE-IN-|TTY:* *|-70012 TYO #FILE-OUT-|TTY:* *|-70014 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 136223 BPORG 126164 GCPROTECT NIL LAPSETUP/| NIL PURCLOBRL NIL PURE 1 PUTPROP (+INTERNAL-STRING-MARKER SUBR FSUBR LSUBR) TTSR/| 12657