-/* uLisp Version 2.1 - www.ulisp.com
-   David Johnson-Davies - www.technoblogy.com - 21st April 2018
+/* uLisp AVR Version 2.2 - www.ulisp.com
+   David Johnson-Davies - www.technoblogy.com - 19th May 2018
 
    Licensed under the MIT license: https://opensource.org/licenses/MIT
 */


object *fn_print (object *args, object *env) {
  (void) env;
  pln(pserial);
  object *obj = first(args);
  pfun_t pfun = pstreamfun(cdr(args));
  printobject(obj, pfun);
  (pfun)(' ');
  return obj;

  int TC=0;
  EVAL:
  // Enough space?
  if (End != 0xA5) error(PSTR("Stack overflow"));
  if (Freespace < 20) gc(form, env);
  // Escape
  if (tstflag(ESCAPE)) { clrflag(ESCAPE); error(PSTR("Escape!"));}
  #if defined (serialmonitor)
