dos_compilers/Microsoft muLISP-86 v51/HELP.LSP
2024-07-05 08:30:14 -07:00

484 lines
19 KiB
Common Lisp
Raw 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.

; File: HELP.LSP (C) 12/28/85 Soft Warehouse, Inc.
; muLISP Help Facility
; To use the Help Facility, read this file into muLISP using the RDS
; command: (RDS HELP). Then if <name> is the name of a muLISP primitive,
; the command (HELP 'name) displays <name>'s arguments or initial value
; and <name>'s page number in Chapter 5 of the muLISP Reference Manual.
(PROG1
(DEFUN HELP (NAME
READ-CHAR RDS WRS )
(SETQ READ-CHAR 0)
(LOOP
(FRESH-LINE)
((GET NAME 'HELP-POINTER)
((RDS *HELP-FILE*)
(READPTR (GET NAME 'HELP-POINTER))
(WRITE-LINE (READ-LINE))
T )
(WRITE-LINE (PACK* *HELP-FILE* "not found"))
NIL )
(WRITE-STRING "Enter primitive name: ")
(CLEAR-INPUT)
(SETQ NAME (STRING-UPCASE (READ-LINE)))
((EQ NAME '||)) ) )
(MOVD 'HELP '?)
(SETQ *HELP-FILE* (INPUTFILE))
(LOOP
((NOT (LISTEN))
(TERPRI 2)
(WRITE-LINE
"For help on the muLISP primitive <name>, enter: (HELP name)")
(SETQ RDS) )
((LAMBDA (NUM LINE)
((EQ LINE ||))
(PUT (STRING-RIGHT-TRIM |: | (SUBSTRING LINE 0 (FINDSTRING '| | LINE)))
'HELP-POINTER NUM))
(READPTR)
(READ-LINE)) ) )
ABS [n] Numerical Function 139
ACONS [key, object, alist] Constructor Function 36
ACOS [n] Numerical Function 137
ADD1 [n] Numerical Function 126
ADJOIN [object, list, test] Constructor Function 33
ALLOCATE [n] Memory Function 236
ALPHA-CHAR-P [symbol] Character Function 90
ALPHANUMERICP [symbol] Character Function 90
AND [form1, ... formn] Logical Special form 66
APPEND [list1, ... listn] Constructor Function 21
APPLY [function, arg1, ..., list] Evaluator Function 201
ASCII [atom] Character Function 94
ASH [n, m] Numerical Function 150
ASIN [n] Numerical Function 137
ASSOC [key, alist, test] Searcher Function 16
ASSOC-IF [test, alist] Searcher Function 16
ATAN [n] Numerical Function 137
ATOM [object] Recognizer Function 56
*AUTO-NEWLINE*: T Screen Control var. 265
BACKGROUND-COLOR [n] Screen Function 263
BINARY-LOAD [filename, offset] Hardware Function 255
*BLINK*: NIL Screen Control var. 265
BREAK [object, message] User interface Function 243
BUTLAST [list, n] Constructor Function 26
CAAAAR [object] Selector Function 5
CAAADR [object] Selector Function 5
CAAAR [object] Selector Function 5
CAADAR [object] Selector Function 5
CAADDR [object] Selector Function 5
CAADR [object] Selector Function 5
CAAR [object] Selector Function 5
CADAAR [object] Selector Function 5
CADADR [object] Selector Function 5
CADAR [object] Selector Function 5
CADDAR [object] Selector Function 5
CADDDR [object] Selector Function 5
CADDR [object] Selector Function 5
CADR [object] Selector Function 5
CAR [object] Selector Function 5
CATCH [label, form1, ...] Control Special form 226
CDAAAR [object] Selector Function 5
CDAADR [object] Selector Function 5
CDAAR [object] Selector Function 5
CDADAR [object] Selector Function 5
CDADDR [object] Selector Function 5
CDADR [object] Selector Function 5
CDAR [object] Selector Function 5
CDDAAR [object] Selector Function 5
CDDADR [object] Selector Function 5
CDDAR [object] Selector Function 5
CDDDAR [object] Selector Function 5
CDDDDR [object] Selector Function 5
CDDDR [object] Selector Function 5
CDDR [object] Selector Function 5
CDR [object] Selector Function 4
CEILING [n, m] Numerical Function 143
CHAR [atom, n] String Function 100
CHAR-CODE [symbol] Character Function 95
CHAR-DOWNCASE [symbol] Character Function 96
CHAR-EQUAL [sym1, ... symn] Character Function 93
CHAR-GREATERP [sym1, ... symn] Character Function 93
CHAR-LESSP [sym1, ... symn] Character Function 93
CHAR-NOT-EQUAL [sym1, ... symn] Character Function 93
CHAR-NOT-GREATERP [sym1, ... ] Character Function 93
CHAR-NOT-LESSP [sym1, ... symn] Character Function 93
CHAR-UPCASE [symbol] Character Function 96
CHAR= [symbol1, ... symboln] Character Function 92
CHAR< [symbol1, ... symboln] Character Function 92
CHAR> [symbol1, ... symboln] Character Function 92
CHAR<= [symbol1, ... symboln] Character Function 92
CHAR>= [symbol1, ... symboln] Character Function 92
CHAR/= [symbol1, ... symboln] Character Function 92
CLEAR-INPUT [] Input Function 160
CLEAR-SCREEN [] Screen Function 259
CODE-CHAR [n] Character Function 95
COLUMN [] Screen Function 259
COMMENT [comments] Control Special form 225
COND [cond1, ... condn] Control Special form 221
CONS [obj1, obj2] Constructor Function 18
CONSP [object] Recognizer Function 58
CONSTANTP [object] Evaluator Function 197
COPY-ALIST [alist] Constructor Function 22
COPY-CHAR-TYPE [chr1, chr2, flg]Input Function 167
COPY-LIST [list] Constructor Function 22
COPY-TREE [object] Constructor Function 22
COS [n] Numerical Function 136
COUNT [object, list, test] Searcher Function 11
COUNT-IF [test, list] Searcher Function 11
CSMEMORY [offset, value, flag] Hardware Function 249
CURSOR-LINES [start, endline] Screen Function 264
DECF [place, n] Numerical Macro 128
DECQ [symbol, n] Numerical Special form 127
DEFMACRO [sym, arglist, form1, ...] Definition Special form 88
DEFUN [sym, arglist, form1, ...] Definition Special form 87
DELETE [item, list, test] Modifier Function 44
DELETE-DUPLICATES [list, test] Modifier Function 45
DELETE-IF [test, list] Modifier Function 44
DELETE-LINES [n] Screen Function 261
DENOMINATOR [n] Numerical Function 141
DIGIT-CHAR-P [symbol, n] Character Function 91
DISPLAY-PAGE [n] Screen Function 265
DIVIDE [n, m] Numerical Function 147
DO [letlist, form1, ... formn] Control Macro 223
DO* [letlist, form1, ... formn] Control Macro 223
DOLIST [(var, list, result) form1, ...] Control Macro 224
DOTIMES [(var, count, result) form1, ...] Control Macro 224
DRIVER [] User interface Function 241
DSMEMORY [offset, value, flag] Hardware Function 249
ECHO: NIL I/O Control var. 173, 190
EIGHTH [list] Selector Function 7
ENDP [object] Recognizer Function 59
EOF I/O Keyword 159, 180
EQ [obj1, obj2] Comparator Function 60
EQL [obj1, obj2] Comparator Function 61
EQUAL [obj1, obj2, test] Comparator Function 62
EVAL [object] Evaluator Function 199
EVAL-FUNCTION-P [symbol] Evaluator Function 196
EVENP [object] Numerical Function 114
EVERY [test, list1, ..., listn] Evaluator Function 212
EXECUTE [program, command-line] Control Function 231
EXP [n] Numerical Function 132
EXPT [n, m] Numerical Function 133
FBOUNDP [symbol] Evaluator Function 196
FIFTH [list] Selector Function 7
FILL [list, object] Modifier Function 40
FIND [object, list, test] Searcher Function 14
FIND-IF [test, list] Searcher Function 14
FINDSTRING [atom1, atom2, n] String Function 106
FIRST [list] Selector Function 7
FIRSTN [n, list] Constructor Function 23
FLAG [symbol, attribute] Flag Function 79
FLAGP [symbol, attribute] Flag Function 79
FLOOR [n, m] Numerical Function 142
FMAKUNBOUND [symbol] Definition Function 85
FOREGROUND-COLOR [n] Screen Function 263
FOURTH [list] Selector Function 7
*FREE-LIST*: '*FREE-LIST* Memory Variable 235
FRESH-LINE [] Output Function 185
FUNCALL [function, arg1, ... arg2] Evaluator Function 203
FUNCTIONP [object] Evaluator Function 197
GCD [n1, n2, ..., nm] Numerical Function 129
GET [symbol, key] Property Function 77
GET-BREAK-CHARS [] Input Function 172
GET-MACRO-CHAR [char, flag] Input Function 167
GETD [symbol, flag] Definition Function 82
GETSET [parameter] Miscellaneous Function 268
*HIGH-INTENSITY*: NIL Screen Control var. 265
IDENTITY [object] Control Function 219
IF [testform, thenform, elseform] Control Special form 220
*IGNORE-CASE*: NIL Input Control var. 173
INCF [place, n] Numerical Macro 128
INCQ [symbol, n] Numerical Special form 127
INPUTFILE [filename] Input Function 158
INSERT-LINES [n] Screen Function 261
INTEGER-LENGTH [n] Numerical Function 151
INTEGERP [object] Recognizer Function 55
INTERRUPT [n] Hardware Function 254
INTERSECTION [list1, list2, test] Constructor Function 34
ISQRT [n] Numerical Function 135
LAMBDA Definition Keyword 82
LAST [list] Selector Function 8
LCM [n1, ..., nm] Numerical Function 131
LCONC [dotted-pair, list] Modifier Function 50
LDIFF [list, tail] Constructor Function 25
LENGTH [object] Selector Function 10
LET [letlist, form1, ... formn] Control Macro 222
LET* [letlist, form1, ... formn]Control Macro 222
LINELENGTH [n] Output Function 189
LINELENGTH: 'LINELENGTH Output Control var. 190
LIST [obj1, ..., objn] Constructor Function 19
LIST* [obj1, ..., objn] Constructor Function 19
LIST-LENGTH [object] Selector Function 10
LISTEN [] Input Function 161
LISTP [object] Recognizer Function 58
LN [n] Numerical Function 134
LOAD [filename] Environment Function 239
LOCATION [object] Hardware Function 252
LOG [n, base] Numerical Function 134
LOGAND [n1, ..., nm] Numerical Function 149
LOGIOR [n1, ..., nm] Numerical Function 149
LOGNOT [n] Numerical Function 148
LOGXOR [n1, ..., nm] Numerical Function 149
LOOP [form1, ..., formn] Control Special form 217
LOWER-CASE-P [symbol] Character Function 89
MACRO Definition Keyword 82
MACRO-FUNCTION [symbol] Evaluator Function 205
MACRO-FUNCTION-P [symbol] Evaluator Function 196
MACROEXPAND [form] Evaluator Function 206
MACROEXPAND-1 [form] Evaluator Function 206
MAKE-LIST [n, object, list] Constructor Function 20
MAKE-RANDOM-STATE [state] Numerical Function 153
MAKE-WINDOW [row, col, rows, cols] Screen Function 262
MAPC [function, list1, ...] Evaluator Function 208
MAPCAN [function, list1, ...] Evaluator Function 210
MAPCAR [function, list1, ...] Evaluator Function 209
MAPCON [function, list1, ...] Evaluator Function 210
MAPL [function, list1, ...] Evaluator Function 208
MAPLIST [function, list1, ...] Evaluator Function 209
MAX [n1, ..., nm] Numerical Function 121
MEMBER [object, list, test] Searcher Function 13
MEMBER-IF [test, list] Searcher Function 13
MEMORY [address, value, flag] Hardware Function 247
MERGE [list1, list2, test] Modifier Function 52
MIN [n1, ..., nm] Numerical Function 121
MINUSP [object] Numerical Function 113
MISMATCH [list1, list2, test] Searcher Function 12
MOD [n, m] Numerical Function 146
MOVD [symbol1, symbol2] Definition Function 84
NBUTLAST [list, n] Modifier Function 42
NCONC [list1, ..., listn] Modifier Function 41
NEQ [obj1, obj2] Comparator Function 60
NEQL [obj1, obj2] Comparator Function 61
NIL Evaluator Constant 197
NINTH [list] Selector Function 7
NLAMBDA Definition Keyword 82
NO-EVAL-FUNCTION-P [symbol] Evaluator Function 196
NOT [object] Logical Function 65
NOTANY [test, list1, ...] Evaluator Function 211
NOTEVERY [test, list1, ...] Evaluator Function 212
NRECONC [list, object] Modifier Function 43
NREVERSE [list, object] Modifier Function 43
NSUBLIS [alist, object, test] Modifier Function 48
NSUBST [new, old, object, test] Modifier Function 47
NSUBST-IF [new, test, object] Modifier Function 47
NSUBSTITUTE [new, old, list, test] Modifier Function 46
NSUBSTITUTE-IF [new, test, list] Modifier Function 46
NTH [n, list] Selector Function 9
NTHCDR [n, list] Selector Function 9
NULL [object] Recognizer Function 57
NUMBERP [object] Recognizer Function 55
NUMERATOR [n] Numerical Function 141
NUMERIC-CHAR-P [symbol] Character Function 90
OBLIST [] Constructor Function 37
ODDP [object] Numerical Function 114
OPENFILES [] Input Function 158
OR [form1, ..., formn] Logical Special form 67
ORDERP [object1, object2] Comparator Function 64
OUTPUTFILE [filename] Output Function 179
PACK [list] String Function 98
PACK* [atom1, ..., atomn] String Function 98
PAIRLIS [keys, objects, alist] Constructor Function 36
PEEK-CHAR [flag] Input Function 164
PI [] Numerical Function 138
PLUSP [object] Numerical Function 113
POP [symbol] Assignment Special form 73
PORTIO [port, value, flag] Hardware Function 251
POSITION [object, list, test] Searcher Function 15
POSITION-IF [test, list] Searcher Function 15
PRECISION [n] Numerical Function 109
PRIN1 [object] Output Function 183
PRINC [object] Output Function 184
PRINT [object] Output Function 184
*PRINT-BASE*: 10 Output Control var. 191
*PRINT-DOWNCASE*: NIL Output Control var. 190
*PRINT-ESCAPE*: T Output Control var. 191
PRINT-LENGTH [atom] String Function 107
*PRINT-POINT*: 7 Output Control var. 192
*PRINTER-ECHO*: NIL Output Control var. 193
PROG1 [form1, ... formn] Control Special form 218
PROG2 [form1, ... formn] Control Macro 218
PROGN [form1, ... formn] Control Special form 216
PSETQ [symbol1, form1, ...] Assignment Special form 71
PUSH [form, symbol] Assignment Special form 74
PUSHNEW [form, symbol, test] Assignment Macro 74
PUT [symbol, key, object] Property Function 76
PUTD [symbol, definition] Definition Function 83
PUTD: 'PUTD Definition Control var. 86
QUOTE [object] Control Special form 215
RANDOM [n, state] Numerical Function 152
*RANDOM-STATE* Numerical Control var. 153
RANDOM-STATE-P [object] Numerical Function 154
RASSOC [key, alist, test] Searcher Function 17
RASSOC-IF [test, alist] Searcher Function 17
RATIONALP [object] Recognizer Function 55
RATOM [] Input Function 171
RDS [filename] Input Function 156
READ [] Input Function 166
*READ-BASE*: 10 Input Control var. 173
READ-BYTE [] Input Function 165
READ-CHAR [peek-flag] Input Function 162
READ-CHAR: 'READ-CHAR Input Control var. 173
READ-LINE [] Input Function 165
*READ-UPCASE*: T Input Control var. 174
READPTR [n] Input Function 159
RECLAIM [] Memory Function 232
REDUCE [function, list, init] Evaluator Function 213
REGISTER [n, m] Hardware Function 253
REM [n, m] Numerical Function 146
REMD [symbol] Definition Function 85
REMFLAG [symbol, attribute] Flag Function 80
REMOVE [item, list, test] Constructor Function 28
REMOVE-DUPLICATES [list, test] Constructor Function 29
REMOVE-IF [test, list] Constructor Function 28
REMPROP [symbol, key] Property Function 78
REPLACE [list1, list2] Modifier Function 40
REST [list] Selector Function 7
RESTART [] Control Function 230
RETURN [object] Control Function 229
REVAPPEND [list, object] Constructor Function 27
REVERSE [list, object] Constructor Function 27
ROUND [n, m] Numerical Function 145
ROW [] Screen Function 259
RPLACA [obj1, obj2] Modifier Function 38
RPLACD [obj1, obj2] Modifier Function 39
SAVE [filename] Environment Function 237
SECOND [list] Selector Function 7
SET [symbol, object] Assignment Function 69
SET-BREAK-CHARS [list, flag] Input Function 172
SET-CURSOR [row, column] Screen Function 259
SET-DIFFERENCE [list1, list2, test] Constructor Function 35
SET-MACRO-CHAR [char, defn, flg] Input Function 167
SETF [place1, form1, ... ] Assignment Macro 72
SETQ [symbol1, form1, ...] Assignment Special form 70
SEVENTH [list] Selector Function 7
SHIFT [n, m] Numerical Function 150
SIGNUM [n] Numerical Function 140
SIN [n] Numerical Function 136
SIXTH [list] Selector Function 7
SNAPSHOT [address, atom] Hardware Function 256
SOME [test, list1, ... listn] Evaluator Function 211
SORT [list, test] Modifier Function 53
SPACES [n] Output Function 186
SPECIAL Definition Keyword 82
SPECIAL-FORM-P [symbol] Evaluator Function 196
SPLIT [list] Modifier Function 51
SQRT [n] Numerical Function 135
STABLE-SORT [list, test] Modifier Function 53
STACK-LIST [] Constructor Function 37
STRING-CAPITALIZE [atom] String Function 105
STRING-DOWNCASE [atom] String Function 105
STRING-EQUAL [atom1, atom2] String Macro 101
STRING-GREATERP [atom1, atom2] String Macro 103
STRING-LEFT-TRIM [chars, atom] String Function 104
STRING-LESSP [atom1, atom2] String Macro 103
STRING-NOT-EQUAL [atm1, atm2] String Macro 103
STRING-NOT-GREATERP [atm1, atm2] String Macro 103
STRING-NOT-LESSP [atm1, atm2] String Macro 103
STRING-RIGHT-TRIM [chars, atom] String Function 104
STRING-TRIM [chars, atom] String Function 104
STRING-UPCASE [atom] String Function 105
STRING= [atom1, atom2, flag] String Function 101
STRING< [atom1, atom2, flag] String Function 102
STRING> [atom1, atom2, flag] String Function 102
STRING<= [atom1, atom2, flag] String Function 102
STRING>= [atom1, atom2, flag] String Function 102
STRING/= [atom1, atom2, flag] String Function 102
STRINGP [object] Recognizer Function 54
SUB1 [n] Numerical Function 126
SUBLIS [alist, object, test] Constructor Function 32
SUBLIST [list, n, m] Constructor Function 24
SUBSETP [list1, list2, test] Comparator Function 63
SUBST [new, old, object, test] Constructor Function 31
SUBST-IF [new, test, object] Constructor Function 31
SUBSTITUTE [new, old, list, test] Constructor Function 30
SUBSTITUTE-IF [new, test, list] Constructor Function 30
SUBSTRING [atom, n, m] String Function 99
SYMBOL-FUNCTION [symbol] Evaluator Function 198
SYMBOL-PLIST [symbol] Evaluator Function 198
SYMBOL-VALUE [symbol] Evaluator Function 198
SYMBOLP [object] Recognizer Function 54
SYSTEM [n] Control Function 230
TAILP [list1, list2] Comparator Function 63
TAN [n] Numerical Function 136
TCONC [dotted-pair, object] Modifier Function 49
TENTH [list] Selector Function 7
TERPRI [n] Output Function 185
THIRD [list] Selector Function 7
THROW [label, object] Control Function 228
TIME [flag] Miscellaneous Function 267
TONE [frequency, duration] Miscellaneous Function 266
TREE-EQUAL [object1, object2, test] Comparator Function 62
TRUNCATE [n, m] Numerical Function 144
UNDEFINED [symbol, form1, ...] Evaluator Function 204
UNDERFLOW [n] Numerical Function 111
UNION [list1, list2, test] Constructor Function 34
UNLESS [testform, form1, ... formn] Control Macro 220
UNPACK [atom] String Function 97
UNREAD-CHAR [] Input Function 163
UNWIND-PROTECT [form1, form2, ...] Control Special form 227
UPPER-CASE-P [symbol] Character Function 89
WHEN [testform, form1, ... formn] Control Macro 220
WRITE-BYTE [n] Output Function 188
WRITE-LINE [symbol] Output Function 187
WRITE-STRING [symbol] Output Function 187
WRITEPTR [n] Output Function 180
WRS [filename, reopen-flag] Output Function 176
Y-OR-N-P [message] User interface Function 246
YES-OR-NO-P [message] User interface Function 246
ZEROP [object] Numerical Function 112
+ [n1, ..., nm] Numerical Function 122
- [n1, ..., nm] Numerical Function 123
* [n1, ..., nm] Numerical Function 124
/ [n1, ..., nm] Numerical Function 125
= [n1, ..., nm] Numerical Function 115
/= [n1, ..., nm] Numerical Function 116
< [n1, ..., nm] Numerical Function 117
> [n1, ..., nm] Numerical Function 118
<= [n1, ..., nm] Numerical Function 119
>= [n1, ..., nm] Numerical Function 120
\ back slash Input Escape char. 166
| vertical bar Input Escape char. 166
( left parenthesis Input Macro char. 168
) right parenthesis Input Macro char. 168
] right square bracket Input Macro char. 168
, comma Input Macro char. 169
' single quote Input Macro char. 169
" double quote Input Macro char. 170
; semicolon Input Macro char. 169
++ User interface Variable 241
+++ User interface Variable 241
** User interface Variable 241
*** User interface Variable 241