~~

AUTHOR

R. E. Long

ffilA1lE ffi{Mii!. @ . IT IElblW(fn flJl· U11 U~U lb U~U llJ)

m: mll CAL

?I.~4w

IlEIDSE

- H. Sackman for

C. Weissman

a working pdper

SJ,iSWm02tre!opmen2 Col1lllraiion/25tlO Colorado Alle./Santa Mcriica, California SOlIDS

D.'UE

5-27 -69

PAGE 1 OF--.lLI'!

(Page 2 blank)

A Table of LISP 1.5/360 Functions & Variables ABSTRACT This document lists approximately 200 functions and 30 variables that are available in the SDC LISP 1.5/360 System. LISP 1.5/360 runs under SDC's time~sharing systems on the IBM 360/65 and 360/50. The table of functions and variables specifies section numbers, information about the values'of functions and variables, and information about the arguments. For each there is an explanation, comment, and/or reference to a document containing the-definition and further information. ~ince all names in section ~, the LISP section, are included in the table, the programmer may use this table to avoid a conflict of names. The table also lists some useful functions in other sections, but it does not include all of the system functions which are not in section ~.

A·2450 4/65

~COPyright

..

~

1969 System Development Corporation

- - - - _ . _ - - - - -.-

... 27 May 1969

3

TM-4310/000/00

(Page 4 blank)

INDEX OF SYMBOLS FOR VALUE &.ARGS A

An atom

CHID

A oharaotep. identifier

FL

A floating point number

FN

A funotion .

FNAME

The name of a funotion (name or name dotted with seotion)

I

S

An integer (Is means a LISPS~LL INTEGER) An identifier A list A number (any type) speoi~l format list, CAR points. to start of list, CDR points to last An s expression

T/O

T or NIL

VNAME

The name of a variable (name or

ID L

N p.

(-'f

member~

, , name·do~ted

with seation)

When an argument is listed in the table in the fprm (N ••• ), the function has an indefinite number of arguments. '

'-...-/

INDEX OF SYMBOLS FOR KIND I

An INSTRUCTION

M

A MACRO

S A speciaZ variable number A FUNCTION of number arguments INDEX OF SYMBOLS FOR REFERENCES W

Q

......

LISP 1. 5 Primer, by Clark Weissman, DickenRon, 1967. . LISP 1. 5 Reference Manual for Q32, by S. L. Kameny, SDC document TM2337/101/00. ' ~pri1

B

The BBN-LISP System, Reference Manual

L

LISP Edit Program LISPED, by Kameny& Hawkinson. TM-2337/100/01.

M

LISP 1.5 Programmer's'Manual by McCarthy et.a1, MIT Press 1966.

S

The SDC LISP 1. '5 System for IBM 360 Computers, by J .A. Barnett and R. E. Long, SDC document SP-3043. The I/O document for SDC LISP 1.5/360, not yet written. This document. [Conunents are in square brackets]

1969, by D. G. Bobrow, et.a! •.. ' SDC document

, r-\

'U

I

*

\

27 May 1969

TM-4310loooloo

5

Type of

Argument type after evaluation of arguments

Name

Section

Kind

Value

1st Arg

, ABSVAL

1

N

N

I

Is

Is

1

N(

N

',. APPEND ' ARRAYP ATOM ATTACH

o o o o o o o o

, BLANKS '

,BLOCK

I

"j

ADDS}!ALL ADDl

"AND

1;/0 . '

I

2nd Arg

3rd Arg

Ref.erences 1'1'85

, *13

Is"

, H83

W78

S

S

L

L

L

1

TIO

S

[T for arrays]

1

T/O

S

2

L

S

L

o

1

o

I

[like PRlN ?f I blanks]

j)

I

o

1

5

L

,0

1

S

o

I

TIO s'

o o

1

A

(,,'.

2

(5 ••• )

W97 H74

B6.2

57

CAR

CAAR thru CDDR CAAAR thru CDDDR CAAAAR thru CDDDDR ,

I

i, ,-

CDR ,CHIDP CODE , COMPRESS COND CONS CONSCOUNT

i

I

,

1>170"

5 N

o

1

5

o

2

VNAME

'VNAME

S

WllB

o

M

VNAME,

VNAME

5

W1la,

124

5

T/O

124

2

A

L

DDELETE

o

2

L

A

DEFINE DEPLIST DELETE,

o o o

,1

V/66

2

Q69

I'

,

Q67, *14

L

I

2

CSET CSETQ

I

~1.3

(5 •••• ) }

o

i,

i

[T only for character-identifiers]

o o

, COpy

f

W31-7

S

tv30

5

[number of conses since system start]

S,

(COPY(LAMBDA(L) (COND«ATOM L)L) (T(CONS(COPY(CAR L»(COPY(CDR L»») »]

,

'

l.;

CAPITALIZE COMPRESS

2

L

[i'l'hen T. small letters are capitalized on input]

A

T/O/0 L [Destructive deleta-in-place. changes L]

L [Deletes

DELETEL

o

2

L

vll04.ll2

of,L EQUAL to A] L2[Dalataa Q69 members of L2 which fir~ members rnombars

of L1 ]

""-~--------,------------

'

, 27 May 1969

Name DIFFERENCE

"C) :-

";.

Type of ,Section Kind Value

DIVIDE 'DREVERSE '"DGET DGETQ

2nd Arg

3rdArg

References

N

N

N

W83

2

L

N

N

W84

0'

,1

L

L

2

L

M

N

I

T/O T/O T/O T/O

A

2

W8S A'

[Initial value of (EQAF

W7S

122)]

S

S

W7S

S

,S

W70

FORM N [T only for even integers]

rf

1

T/O

EXPLODE

o

1

L

s

[Functional applied by EQUAL to compare arrays]

S

[Functional applied by EQUAL to compare numbers]

ERR2,

122 122 122 122

, EXCISE

122

1

o

ESCAPECH

124

S

%

FASTCALL

o o

I

2

L

s

'FINDN '

o

2

L

A

FIRST

o o

1

A

S

1

T/O

S

1

FL

N

FLOATP

o o

1

TIO

FOR

, "EJlR

FIND

: FIXP FLOAT

I'

":" ..

A [Uses EQ, similar to (CAR(FINDN 'L» ] [Quotes, 2nd argument for (DGET .122)]'

,I

2

,0'

L

1

2

.,t'.

[Destructive revers'ein-place, changes Ll':

EVAL EVENP

EQAF EQNF'

CJ

1st Arg

2

o o o o o o

EQ EQARRAY 'EQUAL EQUALN

Argument type after evaluation of arguments

o o 122 122

ENTlER

,',

TM-431,0/000/00

6

S

1

, ID

, W6l

W77 Q70

S

2

o

M

FOURTH FREESPACE '

.0

I

o

o

FUNCTION

o

I

[Character which causes error unwind from RATQH]

*14

,S

, L [Returns first member of L which ,has its CAR EQUAL to S, else NIL) L [Returns' first member of L which has its CAR EQ to A,e1se NIL) [Recurrs down CAR for first AT,OM] [T only for fixed point numbers]

W76 W8S

[T only for floating pt II's]

W76

S9 *15

I

[Causes garbage collect, value is the number of in node-bps]

free,~ords

W137

" 'i'._ ,,::, ;

o ----,------------

27 May 1969

Name ,FUNCTIONP ',' 'FUNCP ....

.

'

"FINDN " FIXD FILES. ' GENSYM GET

,.. GETP '

GETPROP GO GREATERP

GETA

,.'. '... ,. :.

.

T/O

0

1

T/O

122

2

L'

122

2 "

124

S

o o

o

1

,0,

2

2 PROPERTY L'

L

L or ID

W124 A [Uses EQ. W150 advances'with CDR]

, L or ID A [Uses EQ,advances with CDDR] ID' [Value is property list of ID] W108 W77

I

TIO

Is [Value is the Ith element of the symbolic array] ARRAY TYPE NENT PRESET *15 Is [Value is the Ith element of the CHID CHARARRAY character array] ,NIL' Is [Grows ARMY-IDspace while shrinklngLISTBinary program space; grows ,by 256 x Is words] G [First letter of GENID print names] " [starts at~] [Current number for GENID print names]

3

GROWIDS

123

1

GILETTER GINUMBER

124 124

S S

HEXSWITCH

124

S

T/O

o o

1

T/O

2

L

ISDD

124

S

JUST

o

1

LABEL LAST, LCONC,

o o o o

I

0'

,1

o

'[L must be a 'LIST ending, in NIL]

[List of file descriptor lists for all open, files]

GENID 2 ,PROPERTY

o o o

Argument tYEe after evaluation of arguments 2nd Arg 1st Arg 3rd Arg References S [T only for functions] S' [Used by garbage collector]

,L

122 122

LESSP .':

1

'GETARRAY 'GETC

LEFT , LENGTH

...~

0

2

INTERSECTION

\.'

Value

Section Kind

122

IDP

TM-43l0/000/00

7

.......

2

1 2

S

,[When T, binaryll'a print in hex; when 0, inoct,a1] S [T for ID's and CHID's) L L

T/(), [Set by RATOM,'T for $$ artifacts] I

Q82

N

[Different from LABEL in LISP 1.5] S7 's L [Last member of list]

P

L

P

B6.2

*15

I

2

SYMBARRAY

I

TIO

WI03.111

W77

- - - - - - - - _ ..

Name /'

-,

(,

LISPEDIT LIST LOADEXP

'.

"

"'

..

. LOGAND ·.LOGOR . LOGXOR

,

MAP MAPC MAP CAR 'MAPLIST ':. ' MAX

,MEMB

, MEMBER

TM-43l01000100

8

27 May 1969 Section Kind 0 0 0 0 0 0 .0 0 0 0 . O· 0

0 I 1 I I I 2 2 2 2 I 2

Value

Argument 1st Arg

after evaluation of arguments 2nd Arg 3rd Arg References

t:n~e

L

FILENAME· I I I

N

'(N ••• )

N N

N N FN FN

(N ••. )" (N ••• )

L L

L

L L'

N L/O'

(S ... )

N

L L L

S.

S

N A [Uses

FN FN N . EQ

'

.. '::

W139 (N ... ) .

rums

portion of L starting with A] (N ... )

W138 W84 B25

0

I

N

0

1

N

N

W83

0

1

TIO

S

W77

'MAPCHECl(

122,

TIO

MESSAGE

122

1· 1

MINUS 'MINUSP

,

'.'

W86 W86 W138 W140

LIO

MIN

S [Uses EQUAL . 'N N

W58 I W86.

2

0

-,

L18

W77, W84

;:,

'. CJ'

0

2

L

L

0

TIO

5

TIO TIO TIO

'5

0

1· I I 1

ONEP

0

1

TIO

S

OR

0

I

TIO

s

124

2

L

FILENAME

L

PLUS POSITION PRINT

0

I

N

N ACTION

PRINTCH PRIN0

0

N 2 STATUS 1 S 1 CHID

0

1

NCONC NODEP

OPEN

(~

FN [T if FN is a function of l' arg] S [Prints S on teletype. if S 'is an identifier the message is.written without using PRINT]

., ' ..' .

NOT ,NULL ····NUMBER?

( ,....,./!

'5

0 0

0 0

5

L [Changes Ll W147,156 [Equivalent to (NOT (ATOM S»] W78 'W77 . W76

5

S [T .for any type Q exact1yequs1 to 1] (S ... ) S

FILENAME 5

CHID S

. W77 W78 I

(N ... )

W83 ,I 1 W125 Q76 Q75

'.'

i

----,--------.-~.-----------"-

TM-4310/000/00

9

27 May 1969

Argument

_.

Value

Name PRINI

Section Kind

PROG .. , PROGN

0 0 0

PROP

0

M I '. 3

PUT

0

3

ID

. 124

S

T/O

QUOTE

0

I

QUOTIENT

0

2

N

122

0

I

,

PRETTY SWITCH

1

1st Arg A

A

L

L arID.

af ter evaluation of arguments

t~12e

2nd Arg

References W127,Q75

A A

ID

3rd ArB

W106 Wl60 FN· W15l [Uses EQ] PROPERTY .W150

[When T. PRINT will PRETTYPRINT] S N

W59 W84

N

.'¥'

QTIME· RATOM RDS READ . READCH REC1P

o· 0

0 A 1 OLD FILE S 0

0 0

0 I

CHID

0

I

Wl25 Wl27 W85

,I

N 'N

N

,ID

ID

A

I

.. NODE

S

NODE

NOD)!:

s.

W146

2

0

2,

REPLACA REPLACD

0 '0

RETURN .REVERSE . RIGHT . ROUND

0

I

0

I

0 0

I

2

L

I

S

A

ID

1D

3

0

I

0

I

SETPROP

0

2

SETQ SPECIAL STRINGED STR1NGP

0

I

0

1

0

2

0

'1

0

.2

0

I

WIOS WI04.112 '~15

S

0

.. ':

FL

I

SELECT ·SELECTQ

[Uses EQ]

L

1

, SASSOC

SUBLIS SUBSMALL

NEWFILE

2 . NODE

.0

124

W126

W84 W151 ·W146

REMAINDER , REMPROP

RTMG

[CPU time,' since load, in sec/60]

[The right margin for .the currently write-selected file] L

FN

Q63 W72 58

S L T/O S

VARNAME L S L

L [L be.comes the property-list of 1D] S WlO7 W119

L18 [T only for character arraysl S

B6.4jM12,6l ~'l3

Name f"

~)

:":'

.r-·,.

Section Kind

Argu!nent 1st Arg

Value

SUBST

0

3

S

S

SUB1

0

1

N

N

after evaluation of arguments 2nd Arg 3rd Arg 4th Arg References

t:n~e

S

S

Q78;Hll,61 W83

ARRAY [Length in half-words, excluding header]

SALN

122

1

SARi>

122

1

SETA

122

3

ARRAY [T if ARRAY Js of type symbol] T/O SYHBARRAY SnffiARRAY Is S [Sets the Ith element of the symbolic array]

SETC

122

3

CHARARRAY CHARARRAY

·SIGNON

122

S

.STLN

122

1

I

SUPF ·/.SUPV

122

S

FN

122

0 . [LISP supervisor, is initial value of (SUPF. 122)] .

122

4

0

SHUT

124

1

124

S

FILENAHE L T/ () [When T, PRINT will 'sym-print]

I

SYHSWITCH TAB IN

0

1

Is

Is

I

TAB OUT .

0

1

Is

Is

I

P

S

. SWITCHFN

l----/;

111-4310/000/00

10

27 Hay 1969

I

S

I

CHID [Sets the Ith element o·f the character array]

[Printed by LOOPSUPV after each start] ARRAY [Length in bytes, excluding header] [Called by LOOPSUPV after each start] NAHE1

SECTION!

NAHE2

SECTION2[Interchanges binary programs]

B6.2

P

TCONC

0

2

TEDFILER

0

L18

TEDSEEKER

0

1 '1

TEREAD

0

0

0

W127

TERPRI

O'

0

()

W127

L18 .: ,~:

','

'~15

THIRD

0

I

TIMES

0

I

TRAPPEDP

0

1

UNION

0

2

L

L

UNSPECIAL

0

1

L

L

WRS

0

1

ZEROP

0

1

N

N

N

(N ••• )

W83

[Used by garbage collector]

OLD FILE T/O

L

NEWFILE S [T ifS is 0. any typell]

WI03 W124

I W76

",.'.';,

-------------

----~-~

27 May 1969

[fIJi.

Name *DOT* *EMPTYft

,"

.

."

:

'.

*EQN '*EQP

'

*EXPAND *FUNARG* *LBRAC* *LOGAND' *LOGOR '*LOGXOR'

: '.':'.

*LPAR* 1"

*MAX *MIN

! '.

r ..

..

i'

i ..: ..

Section Kind 0 S

*DOLLAR*

.. ,

11

S 2

[The identifier with 0.. characters) . , T/O N N Q82 ' :; 0 2 T/O N N Q83, 0 2 FORM .FORM FNAME . W1S3 Q31 [Don't use this name in any.sectionl) 0