cl-mv

Common lisp utilities for multiple values. Multiple facilities come from Paul Graham's Book on lisp.

Usage

The library currently exposes 5 symbols.

mvpsetq - psetq for multiple values.

(let (a b c d)
 (mvpsetq (a b) (values 1 2) (c d) (floor 19 5))
 (list a b c d))
;; -> (1 2 3 4)

mvdo* - do* for multiple values.

(mvdo* ((res nil (append res (list j k)))
        (i 1 (1+ i))
        ((j k) (floor 100 i) (floor 100 i)))
       ((> i 3) res))
;; -> (100 0 50 0 33 1)

mvdo - do for multiple values.

(mvdo ((res nil (append res (list j k)))
        (i 1 (1+ i))
        ((j k) (values -1 -1) (floor 100 i)))
       ((> i 3) res))
;; -> (-1 -1 100 0 50 0)

mvlet* - let* for multiple values.

(mvlet* (((i j) (values 1 2))
         (k 3)
         ((l) (values k))
         ((m n) (values k l)))
  (list i j k l m n))
;; -> (1 2 3 3 3 3)

mvlet - let for multiple values.

(let ((i 3) (j 2) (k 1))
  (mvlet (((i j) (values 5 4))
          ((k l) (values i j))
          (m k))
    (list i j k l m)))
;; -> (5 4 3 2 1)

License

Be aware that big parts of the code come from Paul Graham's Book on lisp. I couldn't find any Licence information for that code, so use at your own risk.

The remaining parts are licenced under vanilla MIT Licence.