defun allbut