-/* uLisp AVR Version 4.0a - www.ulisp.com
-   David Johnson-Davies - www.technoblogy.com - 9th July 2021
+/* uLisp AVR Version 4.0b - www.ulisp.com
+   David Johnson-Davies - www.technoblogy.com - 31st August 2021
    
    Licensed under the MIT license: https://opensource.org/licenses/MIT
 */

      superprint(cons(bsymbol(DEFCODE), cons(var, cdr(val))), 0, pfun);
    #endif
    } else {
      superprint(cons(bsymbol(DEFVAR), cons(var, cons(quote(val), NULL))), 0, pserial);
    }
    pln(pfun);
    testescape();

  #if defined(CPU_ATmega4809)
  PGM_P s = lookup_table[name].string;
  #else
  PGM_P s = (char*)pgm_read_word(&lookup_table[name].string);
  #endif
  while (1) {
    #if defined(CPU_ATmega4809)
