/
mt-pkg.lisp
executable file
·82 lines (69 loc) · 3.57 KB
/
mt-pkg.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
(in-package :cl-user)
#| ######################################################################
Package definition for Mike Travers' utilities.
Copyright © 1994-97 Michael Travers
Permission is given to use and modify this code
as long as the copyright notice is preserved.
Send questions, comments, and fixes to mt@media.mit.edu.
-------------------------------------------------------------------------
Defines the MT package, which some of the other files in this collection
use.
Probably not everything is exported that should be.
11/6/07 -- update for ABCL, don't support some symbols that are used by AlanR stuff
###################################################################### |#
(defpackage :mt
(:use :cl) ; #+MCL :ccl
(:export ; from mt-utils.lisp
"DOSEQUENCE" "EXTREME" "EXTREMES" "MAXIMIZE" "MINIMIZE" "MAXIMUMS" "MINIMUMS" "RANDOM-ELEMENT"
"NAMED-LAMBDA" "SYMBOLIZE"
"DO-FOR-ARRAY-ELEMENTS" "CIRCULAR-LIST" "PUSH-END" "PUSHNEW-END" "FRINGE"
"MAPAPPEND" "MAPUNION" "MAPCROSS" "MAPSUBSETS" "MAPSUM" "MAPTREE" "FLATTEN"
"UNION*" "INTERSECTION*"
"SPLIT-LIST" "FILTER" "FILTER-OUT"
"COLLECTING" #-:ABCL "COLLECT" "COLLECT-NEW" "COLLECT-IF"
"SUMMING" "SUM"
"STRING+" "STRING-JOIN" "STRING-REPLACE" "PARSE-SUBSTRINGS" "FAST-STRING" "FAST-TEMP-STRING" "STRING-PREFIX-EQUALS" "PUSH-STRING" "STRING-REMOVE-CHARS"
"STRING-TRUNCATE" "STRING-TRUNCATE-TO-WORD-BOUNDARY"
"TRANSLATE-STRING" "NTRANSLATE-STRING"
"DELETEF" "REMOVEF" "ONCE-ONLY"
"MV-LET*" #-CCL "LET-GLOBALLY"
"DATE-TIME-STRING" "SHORT-DATE-TIME-STRING" "FORMAT-TIME"
"DEF-CACHED-FUNCTION" "DEF-CACHED-FUNCTION-1"
#-:ABCL "DEFSUBST"
"TEST-DEFUN"
"^" "SIGN" "ABS-MAX" "INTEGERS" "ARAND" "ABSMIN" "SINGLE-PI" "DEGREES-TO-RADIANS" "RADIANS-TO-DEGREES" "D2R" "D2RI" "R2D"
"+&" "-&" "INCF&" "DECF&" "1+&" "1-&" "*&" "/&"
"=&" ">&" "<&" ">=&" "<=&" "MAX&" "MIN&" "ZEROP&" "PLUSP&" "MIN)SP&"
"LOGAND&" "LOGIOR&" "LOGNOT&" "LOGANDC1&" "LOGXOR&"
"CAR&" "CDR&" "SVREF&" "AREF&" "SCHAR&"
"LOG2" "NUMBER-OF-BITS" "AVERAGE" "STD-DEV" "GEO-MEAN" "NTH-ROOT"
"PI/2" "PI/4" "2PI"
"COERCE-NUMBER"
#-:ABCL "AIF" "AWHEN" "AAND" "ACOND" "ALAMBDA" #-:ABCL "IT" "SELF"
; "AIF" "AWHEN" "AAND" "ACOND" "ALAMBDA" "IT" "SELF"
"SYMBOL-CONC" "SYMBOL-CONC*" "KEYWORDIZE" "UP-KEYWORDIZE"
"EXTERNALP" "ADD-NICKNAME"
"STREAM-COPY" "FILE-COPY" "FILE-TO-STRING" "RELATIVE-PATHNAME"
#-:ABCL "SUBCLASSES" #-:ABCL "SUPERCLASSES"
"PLIST-MIXIN" "OGET" "OPUT" "CALL-IF"
"SET-EQUAL" "CURRY" "RCURRY" "TRANSITIVE-CLOSURE" "TRANSITIVE-CLOSURE-PROCEDURE"
"FINDPROP" "ASSOCDR" "ASSOCADR"
"DUMP-HT" "HT-CONTENTS" "HASH-KEYS"
"DUMP-VARS-TO-FILE" "DUMP-VAR-TO-FILE"
"DEFBIT"
"FIRSTN" "BREAK-LIST"
"ITRACE" "REPORT-AND-IGNORE-ERRORS"
"NOW"
"WITHOUT-INTERRUPTS" #+:ACL-COMPAT "IN-BACKGROUND"
"READ-UNTIL" "READ-UNTIL-STRING" "NEW-STRING"
"STRING-TRIM-WHITESPACE" "STRING-REMOVE-WHITESPACE" "FAST-WHITESPACEP"
"STRING-SPLIT"
"ONE-STRING" "DOC"
*WHITESPACE*
"DELETE-KEYWORD-ARGS" "DELETE-KEYWORD-ARG"
;; CTRACE
"CTRACE" "WITH-CTRACE" "CTRACE-FUNCTION" "UNCTRACE-FUNCTION" "CTRACE-ALL" "CT"
"WITH-CTRACING" "START-CTRACE" "STOP-CTRACE" "VIEW-CTRACE" "*LAST-CTRACE*"
"CALLING" "RETURNED" ; words used by ctrace-function - sigh
)
)