anchor.diff:    (format o "picovic_SOURCES = picovic.c~%")
     (format o "picovic_CPPFLAGS = -I$(top_srcdir)/src -I$(top_srcdir)/include~%")
     (format o "picovic_LDADD = ../src/libshadowvic.la~%")
  -  (adolist *apps*
  +  (@ (! *apps*)
       (terpri o)
       (format o "~A_SOURCES = ~A.c~%" ! !)
       (format o "~A_CPPFLAGS = -I$(top_srcdir)/src -I$(top_srcdir)/include~%" !)
  
positive.code:   :manual-screen-updates?   t
    :frames-per-second        30)
  
  (with-output-file o "examples/Makefile.am"
    (format o "~A~%" (apply #'+ "bin_PROGRAMS = tests picovic " (pad *apps* " ")))
    (terpri o)
  
negative.code: (fn c-binary (file)
    (apply #'+ (c-list (@ #'string (@ #'char-code (string-list (fetch-file file)))) :brackets :curly)))
  
  (fn c-truth (x)
    (? x "TRUE" "FALSE"))
  
  (var *apps* nil)
  
  (fn gen-game-info (&key binary name
                             start load-address
                             (memory-expansion-3k? nil)
                             (memory-expansion 0)
  