19 lines
1.2 KiB
ArmAsm
19 lines
1.2 KiB
ArmAsm
|
(AUTOLOAD-FROM-FILE
|
|||
|
|
(%SYSTEM-FILE-NAME "PRIMOPS.FSL")
|
|||
|
|
'(< <= <=? <> <>? <? = =? > >= >=? >? ABS ASSOC ASSQ ASSV ATOM? CAAAR
|
|||
|
|
CAADR CAAR CADAR CADDDR CADDR CADR CAR CDAAR CDADR CDAR CDDAR CDDDR
|
|||
|
|
CDDR CDR CEILING CHAR->INTEGER CHAR-CI<? CHAR-CI=? CHAR-DOWNCASE
|
|||
|
|
CHAR-UPCASE CHAR<? CHAR=? CHAR? CLOSURE? COMPLEX? CONS
|
|||
|
|
CONTINUATION? ENVIRONMENT-PARENT ENVIRONMENT? EQ? EQUAL? EQV? EVEN?
|
|||
|
|
FLOAT FLOAT? FLOOR GETPROP INTEGER->CHAR INTEGER? LAST-PAIR LENGTH
|
|||
|
|
LIST-TAIL MAKE-PACKED-VECTOR MEMBER MEMQ MEMV MINUS NEGATIVE? NOT
|
|||
|
|
NUMBER? OBJECT-HASH OBJECT-UNHASH ODD? PAIR? PORT? POSITIVE?
|
|||
|
|
PRINT-LENGTH PROC? PROPLIST PUTPROP QUOTIENT RATIONAL? REAL?
|
|||
|
|
REMAINDER REMPROP RESET REVERSE! ROUND SCHEME-RESET SET-CAR!
|
|||
|
|
SET-CDR! STRING->SYMBOL STRING->UNINTERNED-SYMBOL STRING-FILL!
|
|||
|
|
STRING-LENGTH STRING-REF STRING-SET! STRING? SUBSTRING
|
|||
|
|
SUBSTRING-FIND-NEXT-CHAR-IN-SET SUBSTRING-FIND-PREVIOUS-CHAR-IN-SET
|
|||
|
|
SYMBOL->STRING SYMBOL? THE-ENVIRONMENT TRUNCATE VECTOR-FILL!
|
|||
|
|
VECTOR-LENGTH VECTOR-REF VECTOR-SET! VECTOR? WINDOW-SAVE-CONTENTS
|
|||
|
|
WINDOW-RESTORE-CONTENTS ZERO?)
|
|||
|
|
USER-GLOBAL-ENVIRONMENT)
|