anchor.diff:     (lambda (node)
        (if (member (car node) *safe-symbols*)
            (multiple-value-bind (main children) (splitfilter #'listp node)
  -           (append
  -            main
  -            `(:modifiers
  -              (lambda ()
  -                ,@children))))
  +           (when children
  +             (append
  +              main
  +              `(:modifiers
  +                (lambda ()
  +                  ,@children)))))
            node))
      code))
   
  
positive.code:    root-scsc)
    nil)
  
  
  (in-package :score-script)
  
  
  
  
negative.code: (in-package :cl-user)
  
  
  (defpackage #:wf/ipfs
    (:use #:cl #:gadgets #:alexandria #:access)
  