Function: CONDLET-BINDS

Source

(defun condlet-binds (vars cl)
  (loop for bindform in (cdr cl)
	collect (if (consp bindform)
		    (cons (cdr (assoc (car bindform) vars))
			  (cdr bindform)))))