(DEFUN CONTINUE FEXPR (X)
       (UNWIND-PROTECT ($PRIMER)
		       (REMPROP 'CONTINUE 'FEXPR))
       (CONTINUE))