if语句中的if语句用于lisp中的语句

Question

我在尝试在循环for语句中执行if语句时遇到错误。是否可以在这里加上if语句？

(princ "Enter a number: ")

(setq number(read))

(setq number (- number 1))

(setq primechecker nil)

(loop for x from 2 to number 
   do ((if (> x 5)(princ 5)(princ x))))