1
0
mirror of https://github.com/PDP-10/its.git synced 2026-01-11 23:53:12 +00:00
PDP-10.its/doc/_info_/qioord.2122
2016-11-30 17:58:42 +01:00

463 lines
22 KiB
Plaintext
Executable File
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

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