The modf Reference Manual

3.1.1 modf/modf.asd

Source

modf.asd.

Parent Component

modf (system).

ASDF Systems

modf.

---

3.1.2 modf/package.lisp

Source

modf.asd.

Parent Component

modf (system).

Packages

modf.

---

3.1.3 modf/utils.lisp

Dependency

package.lisp (file).

Source

modf.asd.

Parent Component

modf (system).

Internals

mkstr (function).

---

3.1.4 modf/modf.lisp

Dependency

utils.lisp (file).

Source

modf.asd.

Parent Component

modf (system).

Public Interface

• define-modf-expander (macro).
• define-modf-function (macro).
• define-modf-method (macro).
• define-modf-rewrite (macro).
• fsetf (macro).
• modf (macro).
• modf-eval (macro).
• modf-fn (macro).

Internals

• *accessor-heuristics* (special variable).
• *modf-expansions* (special variable).
• *modf-nth-arg* (special variable).
• *modf-rewrites* (special variable).
• *special-modf-forms* (special variable).
• accessor-in (function).
• apply-expression? (function).
• container-arg-n (function).
• expandable? (function).
• expansions-defined? (function).
• find-container (function).
• funcall-expression? (function).
• late-class-reader-inverter (function).
• late-invert (function).
• modf-expand (function).
• modf-fn-defined? (function).
• modf-name (function).

---

3.1.5 modf/rewrite-rules.lisp

Dependency

modf.lisp (file).

Source

modf.asd.

Parent Component

modf (system).

---

3.1.6 modf/basic.lisp

Dependency

rewrite-rules.lisp (file).

Source

modf.asd.

Parent Component

modf (system).

Internals

• builder∶common-lisp∶aref (function).
• builder∶common-lisp∶getf (function).
• builder∶common-lisp∶gethash (function).
• builder∶common-lisp∶last (function).
• builder∶common-lisp∶nth (function).
• builder∶common-lisp∶nthcdr (function).
• builder∶common-lisp∶pathname-directory (method).
• builder∶common-lisp∶pathname-name (method).
• builder∶common-lisp∶pathname-type (method).
• builder∶common-lisp∶subseq (function).
• copy-instance (function).
• replace-nth (function).
• replace-nthcdr (function).

---

3.1.7 modf/modf-def.lisp

Dependency

basic.lisp (file).

Source

modf.asd.

Parent Component

modf (system).

Packages

modf-def.

Public Interface

• defclass (macro).
• define-modf-for-class-slots (macro).
• define-modf-for-struct-slots (macro).
• defstruct (macro).

Internals

• get-modf-reader-definitions (function).
• group (function).
• group-by (function).
• modf-for-class-slots-expander (function).
• modf-for-struct-slots-expander (function).

---

5.1.1 Macros

Macro: defclass (name direct-superclasses direct-slots &rest options) ¶

Define Modf expansions for class slot accessor and reader methods.

Package

modf-def.

Source

modf-def.lisp.

Macro: define-modf-expander (name nth-arg (expr val new-val) &body body) ¶

Define a new expander which inverts forms starting with NAME. Your function should return an expansion from EXPR to a form that will build a new object that has NEW-VAL in the place specified by expr. NTH-ARG marks which argument is considered the actual data which will be inverted next.

Package

modf.

Source

modf.lisp.

Macro: define-modf-for-class-slots (class-name-or-definition) ¶

This macro defines Modf expanders for a class. We can do this given the definition form for the class (much like with DEFINE-MODF-FOR-STRUCT-SLOTS) or the a name of a finalized class.

Package

modf-def.

Source

modf-def.lisp.

Macro: define-modf-for-struct-slots (structure-definition-form) ¶

This macro defines Modf expanders for structure slots when given a structure definition form.

Package

modf-def.

Source

modf-def.lisp.

Macro: define-modf-function (name nth-arg (new-val &rest args) &body body) ¶

Define a new modf function. It inverts NAME forms by modifying the NTH-ARG term of the arguments of the place form in the MODF macro.

Package

modf.

Source

modf.lisp.

Macro: define-modf-method (name nth-arg (new-val &rest args) &body body) ¶

Define a new modf method. It inverts NAME forms by modifying the NTH-ARG term of the arguments of the place form in the MODF macro. This method can specialize on any of ARGS.

Package

modf.

Source

modf.lisp.

Macro: define-modf-rewrite (name (expr) &body body) ¶

Define a new rewrite rule. If a form starting with NAME is encountered, call the defined function to return a form that we can deal with (i.e. one defined via DEFINE-MODF-EXPANDER, DEFINE-MODF-FUNCTION, and DEFINE-MODF-METHOD).

Package

modf.

Source

modf.lisp.

Macro: defstruct (name-and-options &rest slot-descriptions) ¶

Define a new structure with Modf expansions for slots.

Package

modf-def.

Source

modf-def.lisp.

Macro: fsetf (place value &rest more) ¶

Package

modf.

Source

modf.lisp.

Macro: modf (place value &rest more) ¶

Make a new object (which may use some of the old object) such that PLACE evaluates to VALUE.

MORE should have the form...

MORE : NIL
| (TEMPORARY-BINDING ANOTHER-MODF-PLACE ANOTHER-VALUE . MORE)

Use it to specify a temporary binding for the new object created which will be used in the subsequence MODF-PLACE NEW-VALUE pairs until the end of the MODF form.

Package

modf.

Source

modf.lisp.

Macro: modf-eval (&rest args) ¶

Package

modf.

Source

modf.lisp.

Macro: modf-fn (symbol) ¶

Expand to the defined Modf function. Basically, (MODF-FN SYM) is the functional analog of #’(SETF SYM).

Package

modf.

Source

modf.lisp.

---

5.2.1 Special variables

Special Variable: *accessor-heuristics* ¶

This controls whether we should make educated guesses regarding inverting structure slot readers. For strictly correct behavior, set this to nil.

Package

modf.

Source

modf.lisp.

Special Variable: *modf-expansions* ¶

Holds expansion functions

Package

modf.

Source

modf.lisp.

Special Variable: *modf-nth-arg* ¶

Holds what argument to try to invert next.

Package

modf.

Source

modf.lisp.

Special Variable: *modf-rewrites* ¶

Package

modf.

Source

modf.lisp.

Special Variable: *special-modf-forms* ¶

Package

modf.

Source

modf.lisp.

---

5.2.2 Ordinary functions

Function: accessor-in (expr) ¶

Package

modf.

Source

modf.lisp.

Function: apply-expression? (expr) ¶

Package

modf.

Source

modf.lisp.

Function: builder:common-lisp:aref (new-val array &rest idx) ¶

Package

modf.

Source

basic.lisp.

Function: builder:common-lisp:getf (new-val plist key) ¶

Package

modf.

Source

basic.lisp.

Function: builder:common-lisp:gethash (new-val key hash-table) ¶

Package

modf.

Source

basic.lisp.

Function: builder:common-lisp:last (new-val obj) ¶

Package

modf.

Source

basic.lisp.

Function: builder:common-lisp:nth (new-val nth obj) ¶

Package

modf.

Source

basic.lisp.

Function: builder:common-lisp:nthcdr (new-val nth obj) ¶

Package

modf.

Source

basic.lisp.

Function: builder:common-lisp:subseq (new-val seq start &optional end) ¶

Package

modf.

Source

basic.lisp.

Function: container-arg-n (expr) ¶

Package

modf.

Source

modf.lisp.

Function: copy-instance (obj) ¶

Package

modf.

Source

basic.lisp.

Function: expandable? (expr) ¶

Package

modf.

Source

modf.lisp.

Function: expansions-defined? (expr) ¶

Package

modf.

Source

modf.lisp.

Function: find-container (place) ¶

Package

modf.

Source

modf.lisp.

Function: funcall-expression? (expr) ¶

Package

modf.

Source

modf.lisp.

Function: get-modf-reader-definitions (class &optional defined-readers) ¶

Package

modf-def.

Source

modf-def.lisp.

Function: group (source n) ¶

Package

modf-def.

Source

modf-def.lisp.

Function: group-by (list &rest counts) ¶

Package

modf-def.

Source

modf-def.lisp.

Function: late-class-reader-inverter (func new-val obj) ¶

Package

modf.

Source

modf.lisp.

Function: late-invert (func new-val obj &rest args) ¶

This is a generic catch as much as you can function. It attempts to identify class accessor functions, structure accessor functions, and provides late MODF defined functions (i.e. you used MODF before using DEFINE-MODF-FUNCTION).

All of this functionality is less than ideal efficiency wise, but working over efficiency any day, right? If you want better performance, define all of you functions ahead of time.

Package

modf.

Source

modf.lisp.

Function: mkstr (&rest args) ¶

MaKe STRing

Package

modf.

Source

utils.lisp.

Function: modf-expand (new-val expr enclosed-obj-sym env) ¶

Package

modf.

Source

modf.lisp.

Function: modf-fn-defined? (expr) ¶

Package

modf.

Source

modf.lisp.

Function: modf-for-class-slots-expander (class) ¶

Package

modf-def.

Source

modf-def.lisp.

Function: modf-for-struct-slots-expander (defstruct name-and-options &rest slot-descriptions) ¶

Package

modf-def.

Source

modf-def.lisp.

Function: modf-name (symbol) ¶

Make a symbol name that depends on symbol name and package, but is very unlikely to be chosen by anyone. This is for avoiding collisions for my benefit, not the users, as these symbols belong to the MODF package.

Package

modf.

Source

modf.lisp.

Function: replace-nth (nth list new-val) ¶

Package

modf.

Source

basic.lisp.

Function: replace-nthcdr (nth list new-val) ¶

Package

modf.

Source

basic.lisp.

---

5.2.3 Generic functions

Generic Function: builder:common-lisp:pathname-directory (new-val path) ¶

Package

modf.

Methods

Method: builder:common-lisp:pathname-directory (new-val path) ¶

Source

basic.lisp.

Generic Function: builder:common-lisp:pathname-name (new-val path) ¶

Package

modf.

Methods

Method: builder:common-lisp:pathname-name (new-val path) ¶

Source

basic.lisp.

Generic Function: builder:common-lisp:pathname-type (new-val path) ¶

Package

modf.

Methods

Method: builder:common-lisp:pathname-type (new-val path) ¶

Source

basic.lisp.

---