Common Lisp Package: TEEPEEDEE2.LIB

README:

FUNCTION

Public

CALL/CC (CC)

Implements delimited continuations.

CANCEL-FINALIZATION (OBJECT)

Cancels all of OBJECT's finalizers, if any.

FINALIZE (OBJECT FUNCTION)

Pushes a new FUNCTION to the OBJECT's list of finalizers. FUNCTION should take no arguments. Returns OBJECT. For portability reasons, FUNCTION should not attempt to look at OBJECT by closing over it because, in some lisps, OBJECT will already have been garbage collected and is therefore not accessible when FUNCTION is invoked.

TIMEOUT-FUNC (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

Undocumented

ALIST-GET (ALIST KEY &KEY (TEST #'EQL))

APPLY-BYTE-VECTOR-CAT (ARGS)

BACKTRACE-DESCRIPTION (ERR)

BYTE-TO-ASCII-UPPER (X)

BYTE-VECTOR (&REST ARGS)

BYTE-VECTOR-CAT (&REST ARGS)

BYTE-VECTOR-PARSE-INTEGER (STRING &OPTIONAL (BASE 10))

BYTE-VECTOR-TO-STRING (VEC)

BYTE-VECTOR=-FOLD-ASCII-CASE (A B)

CONCAT-SYM (&REST ARGS)

CONCAT-SYM-FROM-SYM-PACKAGE (SYM &REST ARGS)

CONVERT-CONTINUATION-TO-NORMAL-FUNCTION (K)

COPY-BYTE-VECTOR (A)

FILTER (FN LIST)

FILTER-NON-NIL (LIST)

FILTER-UNTIL-FULL (FN LIST MAX-NUM)

FORCE-BYTE-VECTOR (VAL)

FORCE-CLASS (CLASS)

FORCE-FIRST (FORM)

FORCE-LIST (VAL)

FORCE-REST (FORM)

FORCE-SIMPLE-BYTE-VECTOR (VAL)

FORCE-STRING (VAL)

FORGET-TIMEOUTS

GET-TIMEOUT-TIME

LOAD-TIME-CONSTANTP (FORM &OPTIONAL ENV)

MAKE-BYTE-VECTOR (LEN)

MAKE-DISPLACED-VECTOR (VECTOR &KEY (START 0) (END (LENGTH VECTOR)))

MAKE-TIMEOUT (&KEY FUNC DELAY)

MAX-NIL-OK (&REST ARGS)

MERGE-CONSTANT-ARGUMENTS (ARGS &KEY (PROCESS-ONE 'IDENTITY) JOIN ENV)

MV-FILTER (FN LIST)

NEXT-TIMEOUT (&OPTIONAL (NOW (GET-TIMEOUT-TIME)))

RANDOM-BETWEEN (MIN MAX)

RANDOM-ELT (SEQUENCE)

RANDOM-SHUFFLE (SEQUENCE)

READ-SAFELY (&REST ARGS)

READ-SAFELY-FROM-STRING (STRING)

REPORT-ERROR (ERR &KEY (STREAM *ERROR-OUTPUT*))

SAFELY-LOAD-SYSTEM (&KEY (SYSTEM 'TEEPEEDEE2))

SEPARATE-DECLARATIONS (DECLARATIONS-AND-BODY)

SEPARATE-KEYWORDS (ARGLIST)

STRCAT (&REST ARGS)

SUPERQUOTE-FUNCTION (FORM)

TIMEOUT-CANCEL (TIMEOUT)

SETFTIMEOUT-FUNC (NEW-VALUE INSTANCE)

TIMEOUT-REMAINING (TIMEOUT)

TIMEOUT-SET (TIMEOUT DELAY &OPTIONAL FUNC)

UNQUOTE-QUOTED-SYMBOL (FUNC)

UTF8-DECODE (VEC)

UTF8-ENCODE (STR)

Private

QUICK-QUEUE-ENTRIES (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

QUICK-QUEUE-ENTRY-NEXT (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

QUICK-QUEUE-ENTRY-PREV (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

TIMEOUT-NEXT (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

TIMEOUT-PREV (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

TIMEOUT-TIME (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

Undocumented

%MAKE-TIMEOUT-INTERNAL (&KEY ((NEXT DUM0) NIL) ((PREV DUM1) NIL) ((TIME DUM2) NIL) ((FUNC DUM3) NIL))

BYTE-TO-DIGIT (BYTE)

BYTE-TO-DIGIT-CONSISTENT-INTERNAL (BYTE)

BYTE-TO-DIGIT-CONSISTENT-INTERNAL-CAREFUL (BYTE)

CONCATENATE-SIMPLE-BYTE-VECTORS (ARGS)

COPY-QUICK-QUEUE (INSTANCE)

COPY-QUICK-QUEUE-ENTRY (INSTANCE)

COPY-TIMEOUT (INSTANCE)

DEBUG-ASSERT-REPORT (TEST-FORM PLACE-VALUES)

DESCRIBE-TIMEOUTS

EQL-FOLD-ASCII-CASE (A B)

GENERATE-CASE-KEY (KEYFORM &KEY TEST (TRANSFORM 'IDENTITY) CLAUSES)

GENERATE-DEFMYCLASS-DEFSTRUCT (&KEY NAME SUPERCLASSES SLOTS CONC-NAME PREDICATE-SYM)

GENERATE-DEFSTRUCT (&KEY DEFSTRUCT NAME-AND-OPTIONS SLOTS)

ITS-KNOWN-TYPE (INSTANCE ENV)

ITS-TYPE-SYM (INSTANCE)

MAKE-QUICK-QUEUE (&KEY ((ENTRIES DUM53) (LET ((LEN (* 16 1024))) (COPY-SEQ (MAP '(VECTOR QUICK-QUEUE-ENTRY) 'IDENTITY (LOOP FOR I BELOW LEN COLLECT (LET ((ENTRY (MAKE-QUICK-QUEUE-ENTRY))) (QUICK-QUEUE-ENTRY-INIT ENTRY) ENTRY)))))))

MAKE-QUICK-QUEUE-ENTRY (&KEY ((NEXT DUM0) NIL) ((PREV DUM1) NIL))

MAX-TIMEOUT-PERIOD

MY-FUNC-NAME-TO-SYMBOL (CLASS FUNC)

MY-FUNCTION (FUNC PREFICES)

PARSE-DEFSTRUCT (NAME-AND-OPTIONS)

QUERY-NEW-VALUE

SETFQUICK-QUEUE-ENTRIES (NEW-VALUE INSTANCE)

QUICK-QUEUE-ENTRY-ADD (QUICK-QUEUE-ENTRY BASE)

QUICK-QUEUE-ENTRY-DEL (QUICK-QUEUE-ENTRY)

QUICK-QUEUE-ENTRY-INIT (QUICK-QUEUE-ENTRY)

SETFQUICK-QUEUE-ENTRY-NEXT (NEW-VALUE INSTANCE)

QUICK-QUEUE-ENTRY-P (OBJECT)

SETFQUICK-QUEUE-ENTRY-PREV (NEW-VALUE INSTANCE)

QUICK-QUEUE-GET (QUICK-QUEUE POSITION)

QUICK-QUEUE-LEN (QUICK-QUEUE)

QUICK-QUEUE-P (OBJECT)

SET-ITS-DYNAMIC (NEW-VALUE FUNC INSTANCE &REST ARGS)

STRCAT-GO (&REST ARGS)

STRUCTURE-CLASSP (CLASS)

SUPERQUOTE-FORM-CONSTANTP (FORM ENV)

SUPERQUOTE-FUNCTION-GO (FORM)

TIME-FOR-DELAY (DELAY)

TIMEOUT-DUE (TIMEOUT TIME)

TIMEOUT-MERGE (TIMEOUT)

SETFTIMEOUT-NEXT (NEW-VALUE INSTANCE)

TIMEOUT-P (OBJECT)

TIMEOUT-POSITION (TIMEOUT)

SETFTIMEOUT-PREV (NEW-VALUE INSTANCE)

TIMEOUT-RESET (TIMEOUT DELAY)

TIMEOUT-RUN (TIMEOUT)

SETFTIMEOUT-TIME (NEW-VALUE INSTANCE)

UNSAFE-LENGTH-BYTE-VECTOR=-FOLD-ASCII-CASE (A B)

MACRO

Public

DEFINE-CONSTANT (NAME INITIAL-VALUE &KEY (TEST ''EQL) DOCUMENTATION)

Ensures that the global variable named by NAME is a constant with a value that is equal under TEST to the result of evaluating INITIAL-VALUE. TEST is a /function designator/ that defaults to EQL. If DOCUMENTATION is given, it becomes the documentation string of the constant. Signals an error if NAME is already a bound non-constant variable. Signals an error if NAME is already a constant variable whose value is not equal under TEST to result of evaluating INITIAL-VALUE.

IF-MATCH-BIND (BINDINGS STRING &OPTIONAL (THEN T) (ELSE NIL))

Perform a match bind, but return ELSE on failure instead of raising match-failed

MATCH-BIND (BINDINGS STRING &BODY BODY)

Try to parse STRING according to BINDINGS. If successful, execute BODY. Otherwise raise match-failed

MATCH-REPLACE-ALL (STRING &BODY MATCH-REPLACEMENTS)

For each (match replacment) in MATCH-REPLACEMENTS replace each value of match with the value of replacement in STRING

MATCH-REPLACE-ONE (STRING &BODY MATCH-REPLACEMENTS)

As match-replace-all but at most one replacement is made

MY-CALL

Inside a my-defun, #'my-call is the function call again

WITH-CALL/CC (&BODY BODY &ENVIRONMENT ENV)

Gives access to CALL/CC by transforming BODY to continuation passing style.

WITH-UNIQUE-NAMES (NAMES &BODY FORMS)

Alias for WITH-GENSYMS.

Undocumented

ACOND (&REST CLAUSES)

ADOLIST (LIST &BODY BODY)

AIF (TEST THEN &OPTIONAL ELSE)

APPENDF (PLACE &REST LISTS &ENVIRONMENT ENV)

AWHEN (TEST &BODY BODY)

CASE-= (KEYFORM &REST CLAUSES)

CASE-EQUALP (KEYFORM &REST CLAUSES)

CASE-MATCH-FOLD-ASCII-CASE (KEYFORM &REST CLAUSES)

CHECK-SYMBOLS (&REST NAMES)

DEBUG-ASSERT (TEST-FORM &OPTIONAL PLACES DATUM &REST ARGUMENTS)

DEBUG-UNREACHABLE

DECLAIM-DEFUN-CONSISTENT-FTYPE (NAME INPUT-TYPE OUTPUT-TYPE)

DEF-IF-UNBOUND (DEF NAME ARGS &BODY BODY)

DEFCONSTANT-BV (NAME VALUE &OPTIONAL DOCUMENTATION)

DEFCONSTANT-STRING (NAME VALUE &OPTIONAL DOCUMENTATION)

DEFMYCLASS (NAME-AND-OPTIONS &REST SLOTS)

DEFMYSTRUCT (NAME-AND-OPTIONS &REST SLOTS)

DEFUN-CAREFUL (NAME LAMBDA-LIST &BODY BODY)

DEFUN-CONSISTENT (NAME LAMBDA-LIST &BODY BODY)

DEFUN-SPEEDY (NAME LAMBDA-LIST &BODY BODY)

DELETEF (ITEM PLACE &REST MISC-ARGS)

DOHASH ((KEY VALUE TABLE &OPTIONAL (RESULT-FORM NIL)) &BODY BODY)

EVAL-ALWAYS (&BODY BODY)

IGNORABLE-LET (LET-NAME BINDINGS &BODY BODY)

ITS (FUNC INSTANCE &REST ARGS &ENVIRONMENT ENV)

LET-CURRENT-VALUES (VARS &BODY BODY)

MATCH-SPLIT (PATTERN STRING)

MY-DEFUN (CLASS FUNC LAMBDA-LIST &BODY BODY)

ONCE-ONLY ((&REST NAMES-AND-DECLS) &BODY BODY)

READ-ONLY-LOAD-TIME-VALUE (FORM)

SIGNAL-PROTECT (PROTECTED &BODY CLEANUP)

SUPERQUOTE (FORM &ENVIRONMENT ENV)

UNQUOTE (FORM)

UNQUOTE-SPLICE (FORM)

WITH-IGNORED-ERRORS ((&OPTIONAL (REPORT-FUNCTION ''BACKTRACE-DESCRIPTION)) &BODY BODY)

WITH-INDEPENDENT-TIMEOUTS (NIL &BODY BODY)

WITH-ITS-TYPE ((INSTANCE TYPE) &BODY BODY)

WITH-JOIN-SPAWN/CC ((&OPTIONAL (NAME (GENSYM join))) &BODY BODY)

WITH-POINTER-TO-VECTOR-DATA ((PTR LISP-VECTOR) &BODY BODY)

WITH-PRESERVE-SPECIALS (SPECIALS &BODY BODY)

WITH-SHORTHAND-ACCESSOR ((ACCESSOR CLASS &OPTIONAL (INSTANCE CLASS)) &BODY BODY)

WITHOUT-CALL/CC (&BODY BODY)

Private

Undocumented

AWHILE (TEST &BODY BODY)

CASE-FUNC (KEYFORM FUNC &REST CLAUSES)

CL-CONT-PASS-THROUGH-CONSTRUCTS (&REST NAMES)

CL-CONT-PASS-THROUGH-ONE-CONSTRUCT (NAME)

DEFMYCLASS-DEFSTRUCT (NAME-AND-OPTIONS &REST SLOTS)

REVERSED-DELETEF (PLACE ITEM &REST MISC-ARGS &ENVIRONMENT ENV)

SET-ITS (NEW-VALUE FUNC INSTANCE &REST ARGS &ENVIRONMENT ENV)

WITH-PACKAGE (PACKAGE &BODY BODY)

GENERIC-FUNCTION

Public

Undocumented

ASSIGN (ORIGINAL COPY)

COPY (ORIGINAL)

Private

Undocumented

MY-AUTO-PREFICES (INSTANCE)

VARIABLE

Private

Undocumented

*MY-FAST-INLINE-DECLARATION*

*TIMEOUT-STARTED*

*TIMEOUTS*

CLASS

Private

Undocumented

QUICK-QUEUE

QUICK-QUEUE-ENTRY

TIMEOUT

CONDITION

Public

MATCH-FAILED

Raised when the bindings in a match-bind do not match the target string

CONSTANT

Private

Undocumented

+BYTE-TO-DIGIT-TABLE+