(define get-named-arg (lambda (name args . default-value) (let ((value (member name args))) (if value (cadr value) (if (null? default-value) '() (car default-value))))))