(unless (eq (grass-primitive-type c) 'char) (error "grass-succ-function: error: not a character")) (grass-make-char (mod (1+ (grass-primitive-value c)) 256)))