Functional programming -- 2008-2009 -- info.uvt.ro/Laboratory 8

Functional programming (Spring 2010): front; laboratory: agenda, references, projects, tools; notes (normal paced): 1, 2, 3, 4, 5, 6, 7, 8 (Spring 2009); notes (fast paced): 1, 2, 3, 4 (Spring 2010) (discontinued); applications: robots; mailing list: send mail, view archive, subscribe; author: Ciprian Dorin Craciun, ccraciun@info.uvt.ro;

Macros

References

• previous year laboratory:
  • macroexpand and macroexpand-1;
  • defmacro;
  • gensym;

• the Common Lisp Hyperspec reference:
  • defmacro;
  • macroexpand;
  • macroexpand-1;

• or:
  • Cornel Izbasa's laboratory: [1];
  • the Macros: Defining Your Own chapter from Practical Common Lisp: [2];

Examples

• the examples were provided:
  • Dan Claudiu Codrean;

> (defmacro my-or (e1 e2)
    (let ((v (gensym)))
        `(let ((,v ,e1))
            (if ,v ,v ,e2))))
MY-OR

> (defmacro my-dolist (i lst r &rest b)
    (let
            ((lst* (gensym))
            (l* (gensym)))
        `(let ((,lst* ,lst))
            (if (null ,lst* ,r)
                (do*
                    (
                        (,l* ,lst* (rest ,l*))
                        (,i (first ,l*) (first ,l*)))
                    (
                        (null ,l*) ,r)
                    ,@b)))))
MY-DOLIST