I solved the problem by writing AUTO-FILL-LISP-COMMENTS-IF-APPROPRIATE:
zwei:
(DEFUN AUTO-FILL-lisp-comments-IF-APPROPRIATE ()
(IF (SEND *INTERVAL* ':GET ':NOFILL)
(TURN-OFF-MODE 'AUTO-FILL-lisp-comments-MODE)
(TURN-ON-MODE 'AUTO-FILL-lisp-comments-MODE)))