
Perdre son Auditoire. . .
(let ((cmdline-options (list)))
(do ((cmdline-option
(pop (cmdline-options context))
(pop (cmdline-options context))))
((null cmdline-option))
(cond ((eq (cmdline-option-option cmdline-option) option)
(setf (cmdline-options context)
;; Actually, I *do* have a use for nreconc ;-)
(nreconc cmdline-options (cmdline-options context)))
(return-from getopt
(values (cmdline-option-value cmdline-option)
(list (cmdline-option-source cmdline-option)
(cmdline-option-name cmdline-option)))))
(t
(push cmdline-option cmdline-options))))
(setf (cmdline-options context) (nreverse cmdline-options)))
La Musique des Programmes – Didier Verna
9/16