SDS-GLOBAL full listing

%GET-DAY-NAME

(%GET-DAY-NAME NUM) [function]

%GET-MON-NAME

(%GET-MON-NAME NUM) [function]

Called By		GET-DATE-STRING-FOR-TODAY
Location		base/global.lisp

ADD-OPTIONS

(ADD-OPTIONS KEYS) [function]

Description		specify keys as '(("-k" "--kill") ARG)
Calls		(SETF OPTION-HAS-ARGUMENT), (SETF OPTION-KEYS) and MAKE-OPTION
Location		base/global.lisp

ALBERT-SETTING

(ALBERT-SETTING KEY) [function]

Description		Returns value of an albert-setting.
Called By		%CREATE-CLASS DOCUMENT-FILES GET-CLASS-FACTS POSSIBLY-CVS-LINK PRESENT-BOOK PRESENT-OBJECT-FULL-CLASS/DOCBOOK PRESENT-OBJECT-FULL-GENERIC-PACKAGE/DOCBOOK PRESENT-OBJECT-FULL-METHOD/DOCBOOK PRESENT-OBJECT-TPL/DOCBOOK PRESENT-SDOC PRINT-HEADER-BOOK-HEADER/DOCBOOK PRINT-PURPOSE-GENERIC-CLASS-PURPOSE PRINT-PURPOSE-GENERIC-FUN-PURPOSE SETTING-OR-DEFAULT TL-FIND-OUT-DIR TL-GET-OUTDIR-PREF
Calls		GETHASH, KNOWN-ALBERT-SETTING? and WARN
Location		packages.lisp

(SETF ALBERT-SETTING)

((SETF ALBERT-SETTING) VALUE KEY) [function]

Called By		REGISTER-ALBERT-SETTINGS-ASDF
Calls		(SETF GETHASH), KNOWN-ALBERT-SETTING? and WARN
Location		packages.lisp

ARRANGE-DUPLICATES

(ARRANGE-DUPLICATES OBJ-LIST) [function]

Description		Rearranges the obj-list into a list and lets duplicates using GET-OBJECT-NAME be represented as a list.
Called By		PRETTIFY-TREE and TL-CATEGORISE-DUPLICATES
Calls		GET-OBJECT-NAME, GETHASH and MAKE-HASH-TABLE
Location		base/tools.lisp

CLEAR-OPTIONS

(CLEAR-OPTIONS) [function]

Description		clears any set options
Location		base/global.lisp

COLLECT-GARBAGE

(COLLECT-GARBAGE) [function]

Description		If possible, tells the system to do a GC
Location		base/tools.lisp

COMPOSE

(COMPOSE F G) [function]

Description		Returns a closure which is the composition of functions F and G.
Calls		APPLY and FUNCALL
Location		base/tools.lisp

CONVERT-LIST

(CONVERT-LIST SRC DEST CONSTRUCTOR) [macro]

Description		converts all objects in SRC into DEST and uses CONSTRUCTOR to create clean objects
Calls		CONCAT-PNAMES and GENSYM
Location		base/global.lisp

COPY-ID-OBJ

(COPY-ID-OBJ (OBJ ID-OBJ)) [function]

COPY-OPTION

(COPY-OPTION (OBJ OPTION)) [function]

CURRY

(CURRY FUN) [function]

Description		a classic curry
Calls		APPLY
Location		base/tools.lisp

DEF-ALBERT-SETTING

(DEF-ALBERT-SETTING KEY VALUE &OPTIONAL DESC) [macro]

EQUAL-TO

(EQUAL-TO A B) [generic]

Description		Equality like \#'equal also for objects
Location		base/tools.lisp

EQUAL-TO

(EQUAL-TO A B) [method]

FIGURE-OUT-LANGUAGE

(FIGURE-OUT-LANGUAGE INFORMATION) [function]

Description		returns a keyword or NIL. Operates pretty fussy on information given.
Called By		FIGURE-OUT-LANGUAGE, PRESENT-SDOC, PRETTIFY-TREE and PROCESS-CONVERSION-DATA
Calls		ERROR, FIGURE-OUT-LANGUAGE, SLOT-VALUE, STRING-EQUAL and WARN
Location		base/tools.lisp

FILL-INFO-OBJ

(FILL-INFO-OBJ OBJ TYPE VAL INFO) [function]

Description		This basically fills the obj with values
Called By		%ADD-TO-PACKAGE, %CREATE-CLASS, %CREATE-METHOD, %CREATE-STRUCT, %CREATE-VARIABLE and UPDATE-CALLEDBY-INFO!
Calls		(SETF SLOT-VALUE)
Location		base/tools.lisp

FILTER

(FILTER FUNC LST) [function]

Description		returns a fresh list of all non-nil values generated by FUNC mapped over LST
Called By		GET-INFO-EXCEPT-TYPES, GET-INFO-OF-TYPE, MAKE-CLASS-HIERARCHY, PARSE-OPTIONS, PRESENT-OBJECT-FULL-GENERIC-PACKAGE/DOCBOOK and RL-GENERATE-METHOD
Calls		FUNCALL and NREVERSE
Location		base/tools.lisp

FIND-OBJ-IN-REP

(FIND-OBJ-IN-REP ID TABLE) [function]

Description		Tries to find correct object with given id in table. Returns NIL on failure.
Calls		GETHASH, ID-OBJ-NAME, PARSE-ID, SLOT-VALUE and STRING-EQUAL
Location		base/global.lisp

FIND-OPTION

(FIND-OPTION KEY &OPTIONAL (OPT-LIST *SAVED-OPTIONS*)) [function]

Description		tries to find an option with given key. returns option struct
Called By		PARSE-OPTIONS
Calls		FIND and OPTION-KEYS
Location		base/global.lisp

FLATTEN

(FLATTEN L) [function]

Description		returns all non-conses in tree L in a single fresh list
Called By		DB-INSERT-INDEX, DOCUMENT-SYSTEMS, FLATTEN, PRESENT-OBJECT-FULL-METHOD/DOCBOOK and PROCESS-CONVERSION-DATA
Calls		FLATTEN and REST
Location		base/tools.lisp

FORCE-TO-LIST

(FORCE-TO-LIST PTR) [function]

Description		Makes ptr into a list if it's not already one, if the arugment is NIL, NIL is returned
Called By		CREATE-SDOC-MODULE
Location		base/tools.lisp

GET-DATE-STRING-FOR-TODAY

(GET-DATE-STRING-FOR-TODAY) [function]

Description		Returns a date-string for today.
Called By		PRINT-HEADER-BOOK-HEADER/DOCBOOK
Calls		%GET-MON-NAME, FORMAT and GET-DECODED-TIME
Location		base/global.lisp

GET-INFO-EXCEPT-TYPES

(GET-INFO-EXCEPT-TYPES INFO-LIST TYPES) [function]

Called By		PRESENT-OBJECT-FULL-METHOD/DOCBOOK, PRESENT-OBJECT-FULL-TYPESPEC/DOCBOOK and PRESENT-OBJECT-FULL-VARIABLE/DOCBOOK
Calls		FILTER, SLOT-VALUE and STRING-EQUAL
Location		base/tools.lisp

GET-INFO-OF-TYPE

(GET-INFO-OF-TYPE INFO-LIST TYPE) [function]

Description		info-list is a list of sdoc-info and type is a string
Called By		%CHECK-FOR-CLASS-MOD, GET-METHOD-RETVAL, GET-METHOD-SIGNATURE, GET-SPEC-INHERITS, GET-VARIABLE-SIGNATURE, INFO-TO-FIELD, IS-GENERIC-FUN?, IS-METHOD?, IS-VARIABLE-A-CONSTANT? and TL-GET-FIELDS
Calls		FILTER, SLOT-VALUE and STRING-EQUAL
Location		base/tools.lisp

GET-OBJECT-CONTENT

(GET-OBJECT-CONTENT OBJ) [generic]

Description		Returns a list of content when appropriate or NIL.
Called By		COUNT-OBJ-TYPES
Location		base/global.lisp

GET-OBJECT-CONTENT

(GET-OBJECT-CONTENT OBJ) [method]

GET-OBJECT-ID

(GET-OBJECT-ID OBJ) [generic]

Description		Returns a string with the id of the object
Location		base/global.lisp

GET-OBJECT-ID

(GET-OBJECT-ID OBJ) [method]

Calls		WARN
Location		base/global.lisp

GET-OBJECT-NAME

(GET-OBJECT-NAME OBJ) [generic]

Description		Returns a string with the name of the object
Called By		ARRANGE-DUPLICATES
Location		base/global.lisp

GET-OBJECT-NAME

(GET-OBJECT-NAME OBJ) [method]

Calls		ERROR
Location		base/global.lisp

GET-TBL-FROM-REP

(GET-TBL-FROM-REP OBJ-TYPE REP) [function]

Description		Gets a table from the repository. The ob-type is a string with the type of the object. Returns NIL on failure.
Calls		SLOT-VALUE, STRING-EQUAL and WARN
Location		base/global.lisp

HTBL-TO-LIST

(HTBL-TO-LIST HTBL) [function]

Description		Returns the values in a hash-table as a fresh list.
Called By		GET-FORMAT-CONSTR
Location		base/tools.lisp

ID-OBJ-FULLNAME

(ID-OBJ-FULLNAME (OBJ ID-OBJ)) [function]

(SETF ID-OBJ-FULLNAME)

((SETF ID-OBJ-FULLNAME) (OBJ ID-OBJ)) [function]

Called By		PARSE-ID
Location		base/global.lisp

ID-OBJ-LOCS

(ID-OBJ-LOCS (OBJ ID-OBJ)) [function]

(SETF ID-OBJ-LOCS)

((SETF ID-OBJ-LOCS) (OBJ ID-OBJ)) [function]

Called By		PARSE-ID
Location		base/global.lisp

ID-OBJ-NAME

(ID-OBJ-NAME (OBJ ID-OBJ)) [function]

(SETF ID-OBJ-NAME)

((SETF ID-OBJ-NAME) (OBJ ID-OBJ)) [function]

Called By		PARSE-ID
Location		base/global.lisp

ID-OBJ-P

(ID-OBJ-P OBJ) [predicate]

ID-OBJ-PARAMS

(ID-OBJ-PARAMS (OBJ ID-OBJ)) [function]

(SETF ID-OBJ-PARAMS)

((SETF ID-OBJ-PARAMS) (OBJ ID-OBJ)) [function]

Called By		PARSE-ID
Location		base/global.lisp

ID-OBJ-SCOPE

(ID-OBJ-SCOPE (OBJ ID-OBJ)) [function]

(SETF ID-OBJ-SCOPE)

((SETF ID-OBJ-SCOPE) (OBJ ID-OBJ)) [function]

Called By		PUT-OBJ-IN-REPOSITORY
Location		base/global.lisp

ID-OBJ-TYPE

(ID-OBJ-TYPE (OBJ ID-OBJ)) [function]

(SETF ID-OBJ-TYPE)

((SETF ID-OBJ-TYPE) (OBJ ID-OBJ)) [function]

Called By		PARSE-ID
Location		base/global.lisp

KNOWN-ALBERT-SETTING?

(KNOWN-ALBERT-SETTING? KEY) [function]

Description		Checks if named key is legal.
Called By		(SETF ALBERT-SETTING) and ALBERT-SETTING
Calls		GETHASH
Location		packages.lisp

LIST-TO-SEP-STRING

(LIST-TO-SEP-STRING LIST &KEY (USE-AND-CLAUSE T) (AND-WORD "and") (SEPARATOR ",")) [function]

Description		Returns a string where list elements are separated by comma.
Called By		GET-CLASS-FACTS, GET-CLASS-SIGNATURE, GET-ENUM-VALUES, GET-METHOD-RETVAL, GET-METHOD-SIGNATURE, GET-VARIABLE-SIGNATURE, LIST-TO-SEP-STRING, PRINT-HEADER-PACKAGE-HEADER/DOCBOOK and PRINT-PURPOSE-GENERIC-CLASS-PURPOSE
Calls		LIST-TO-SEP-STRING and STRCAT
Location		base/tools.lisp

LIST-TO-STRING

(LIST-TO-STRING THE-LIST) [function]

Description		Just returns the strings in the-list catenated together
Calls		STRCAT
Location		base/tools.lisp

MAKE-DECENT-FILENAME

(MAKE-DECENT-FILENAME STR) [function]

Description		removes odd characters from given string and returns result. optimise later.
Calls		SUBSTITUTE
Location		base/tools.lisp

MAKE-ID-OBJ

(MAKE-ID-OBJ)

MAKE-OBJ-REPOSITORY

(MAKE-OBJ-REPOSITORY) [function]

Description		Creates and instantiates an OBJECT-REPOSITORY and returns it
Called By		PRESENT-SDOC
Calls		(SETF SLOT-VALUE), MAKE-HASH-TABLE and MAKE-INSTANCE
Location		base/global.lisp

MAKE-OPTION

(MAKE-OPTION)

Called By		ADD-OPTIONS
Location		base/global.lisp

MERGE-TREE-LIST

(MERGE-TREE-LIST TREES) [function]

Description		takes a list as input and reduces the list to a simple object through calls to MERGE-TREES.
Called By		PRETTIFY-TREE and PRETTIFY-TREE
Calls		REDUCE
Location		base/global.lisp

MERGE-TREES

(MERGE-TREES FIRST SECOND) [generic]

Description		merges two trees and returns one tree
Location		base/global.lisp

MERGE-TREES

(MERGE-TREES FIRST SECOND) [method]

Calls		ITS-NAME and WARN
Location		base/global.lisp

NON-NEGATIVE-INTEGER?

(NON-NEGATIVE-INTEGER? OBJ) [function]

Description		Returns T if obj is an integer and >= 0.
Called By		FILE-INFO-TO-FNAME
Location		base/tools.lisp

OPTION-HAS-ARGUMENT

(OPTION-HAS-ARGUMENT (OBJ OPTION)) [function]

(SETF OPTION-HAS-ARGUMENT)

((SETF OPTION-HAS-ARGUMENT) (OBJ OPTION)) [function]

Called By		ADD-OPTIONS
Location		base/global.lisp

OPTION-KEYS

(OPTION-KEYS (OBJ OPTION)) [function]

(SETF OPTION-KEYS)

((SETF OPTION-KEYS) (OBJ OPTION)) [function]

Called By		ADD-OPTIONS
Location		base/global.lisp

OPTION-P

(OPTION-P OBJ) [predicate]

OPTION-VALUES

(OPTION-VALUES (OBJ OPTION)) [function]

(SETF OPTION-VALUES)

((SETF OPTION-VALUES) (OBJ OPTION)) [function]

Called By		PARSE-OPTIONS
Location		base/global.lisp

PARSE-ID

(PARSE-ID ID-TEXT) [function]

Description		could do error-checking.. later..
Called By		FIND-OBJ-IN-REP and PUT-OBJ-IN-REPOSITORY
Calls		(SETF ID-OBJ-FULLNAME), (SETF ID-OBJ-LOCS), (SETF ID-OBJ-NAME), (SETF ID-OBJ-PARAMS), (SETF ID-OBJ-TYPE), MAKE-ID-OBJ and SPLIT-SEQ-ON
Location		base/global.lisp

PARSE-OPTIONS

(PARSE-OPTIONS OPTLIST) [function]

Description		parses a list of arguments. Returns encountered options and 'rest' arguments.
Calls		(SETF OPTION-VALUES), FILTER, FIND-OPTION, OPTION-HAS-ARGUMENT, OPTION-VALUES and REVERSE
Location		base/global.lisp

POSITIVE-INTEGER?

(POSITIVE-INTEGER? OBJ) [function]

Description		Returns T if obj is an integer and > 0.
Location		base/tools.lisp

PRETTIFY-TREE

(PRETTIFY-TREE OBJECT PARENT-LIST) [generic]

Description		Prettifies an object/tree. Is allowed to change itself, children and parents. Do not invoke it unless you know what you're doing.
Location		base/global.lisp

PRETTIFY-TREE

(PRETTIFY-TREE OBJECT PARENT-LIST) [method]

PUT-OBJ-IN-REPOSITORY

(PUT-OBJ-IN-REPOSITORY OBJ REP &KEY (SCOPE NIL)) [function]

Description		Puts given object in repository. Key is the NAME in the id. Value is a pair where CAR is an ID-OBJ and CDR is the object.
Called By		REGISTER-OBJECT-ACTUAL, REGISTER-OBJECT-ACTUAL, REGISTER-OBJECT-ACTUAL, REGISTER-OBJECT-ACTUAL, REGISTER-OBJECT-ACTUAL, REGISTER-OBJECT-ACTUAL and REGISTER-OBJECT-ACTUAL
Calls		(SETF ID-OBJ-SCOPE), GETHASH, ID-OBJ-NAME, ID-OBJ-TYPE, ITS-NAME, PARSE-ID, SLOT-VALUE, STRING-EQUAL and WARN
Location		base/global.lisp

RCURRY

(RCURRY FUN) [function]

Description		a classic right curry
Calls		APPLY
Location		base/tools.lisp

READ-NEW-VALUE

(READ-NEW-VALUE) [function]

Calls		FORMAT, MULTIPLE-VALUE-LIST and READ-LINE
Location		base/tools.lisp

REQUIRE-FILE

(REQUIRE-FILE FNAME PURPOSE) [function]

Description		Makes sure the file is there.. used for conditions
Called By		LINK-CSF-FILES and REQUIRE-FILE
Calls		ERROR, NEW-FILE, PROBE-FILE, REQUIRE-FILE, RESTART-CASE, STRCAT, USE-NEW-FILE and WRITE-STRING
Location		base/tools.lisp

SETTING-OR-DEFAULT

(SETTING-OR-DEFAULT KEY DEFAULT) [function]

Called By		GET-CLASS-FACTS, POSSIBLY-CVS-LINK, PRESENT-OBJECT-FULL-CLASS/DOCBOOK and PRINT-HEADER-BOOK-HEADER/DOCBOOK
Calls		ALBERT-SETTING
Location		packages.lisp

SPLIT-SEQ-ON

(SPLIT-SEQ-ON STR &OPTIONAL (CH #\Space)) [function]

Description		returns a list of strings formed by breaking STR at every occurance of CH (which is not included). Works for any sequence, not just strings, but optimized for vectors.
Called By		PARSE-ID
Location		base/tools.lisp

SPLIT-SEQ-USING

(SPLIT-SEQ-USING STR &OPTIONAL (CH #\Space)) [function]

Description		returns a list of strings. Ignores multiple delimiters.
Location		base/tools.lisp

STRIP-INFO-FIELDS

(STRIP-INFO-FIELDS INFO-LIST TYPE-TO-GO) [function]

Description		Takes a list of sdoc-info and a string naming the field in each info-field to remove. Result is returned as list of conses. The order in the conses is as follows: (value . info), (type . info) and (type . value)
Called By		%CHECK-FOR-CLASS-MOD, GET-METHOD-SIGNATURE, GET-SPEC-INHERITS, GET-VARIABLE-SIGNATURE, IS-GENERIC-FUN?, IS-METHOD? and TL-GET-FIELDS
Calls		GET-RIGHT-FUN, MAPCAR, SLOT-VALUE and STRING-EQUAL
Location		base/tools.lisp

SYS/GETENV

(SYS/GETENV VAR) [function]

Description		Return the value of the environment variable.
Location		base/tools.lisp

UNLESS-BIND

(UNLESS-BIND VAR) [macro]

Description		generalisation of (let ((var expr)) (unless var ...)).
Location		base/tools.lisp

VECTOR-MAP

(VECTOR-MAP FN VEC) [function]

Description		useful for me when I am lazy..
Calls		MAP
Location		base/tools.lisp

VERIFY-ID

(VERIFY-ID OBJ CONTEXT) [function]

Description		Verifies an object's id-field in a certain context
Called By		VERIFY-OBJECT-ACTUAL, VERIFY-OBJECT-ACTUAL, VERIFY-OBJECT-ACTUAL, VERIFY-OBJECT-ACTUAL, VERIFY-OBJECT-ACTUAL and VERIFY-OBJECT-ACTUAL
Calls		ERROR, SLOT-VALUE and VERIFY-IDTEXT
Location		base/global.lisp

VERIFY-IDTEXT

(VERIFY-IDTEXT ID-TEXT) [function]

Description		imperative function which painfully goes through the id text. Returns NIL if the id wasn't any good.
Called By		VERIFY-ID
Calls		MEMBER, POSITION, SCHAR, SUBSEQ, WARN and WARN-LEAVE
Location		base/global.lisp

WHEN-BIND

(WHEN-BIND VAR) [macro]

Description		generalisation of (let ((var expr)) (when var ...)).
Location		base/tools.lisp

WHILE

(WHILE TEST) [macro]

Description		repeat BODY while TEST is true
Location		base/tools.lisp