(DEFUN TEST ()
(REPEAT (FIX PI)
(AND (NOT (TERPRI)))
(APPLY '+ (MAPCAR '* (LIST 1 2 3 4) (LIST 4 3 2 1)))
(ALERT "OK")
)
)
the code is not 100% correct
my (test) shows only one alert box, yours shows three
but it is VERY VERY close
really great tool
i will post my source tomorrow when i get to the office