(DEFINE EVALQUOTE
,  (LAMBDA (FUNC ARGS)
,  ,  (COND
,  ,  ,  ((OR (GET FUNC 'FSUBR) (GET FUNC 'FEXPR))
,  ,  ,  ,  (EVAL (CONS FUNC ARGS))
,  ,  ,  ,,,)
,  ,  ,  ( T (APPLY FUNC ARGS))
,  ,  ,,,)
,  ,,,)
,,,)