(defun max (l &rest ll) (if (null l) nil (max1 ll (unmarker l)))) (defun max1 (l max) (if (null l) max (if (> (unmarker (car l)) max) (max1 (cdr l) (unmarker (car l))) (max1 (cdr l) max)))) (defun unmarker (n) (if (markerp n) (marker-position n) n))