Function:
(defun args-without-defaults (arg-info default-arg-info) (declare (xargs :guard (and (alistp arg-info) (alistp default-arg-info)))) (let ((__function__ 'args-without-defaults)) (declare (ignorable __function__)) (if (endp arg-info) nil (let ((r (args-without-defaults (cdr arg-info) default-arg-info))) (if (assoc-equal (caar arg-info) default-arg-info) r (cons (caar arg-info) r))))))