anchor.diff:                   (mapcar 'first *defpattern-bindings*)
                    (mapcar (lambda (spec) (funcall (second spec)))
                            *defpattern-bindings*)
  -               ,@body))
  +               (seq ,@body)))
              (setf (get ',name 'audition)
                    (lambda (loop-count)
                      (print (list :previewing ',name))
  
positive.code:         (:use :common-lisp
                #|:6502 :asm6502 :asm6502-utility :asm6502-nes|#
                :nesmus
                ,@ (getf options :use-packages)))
        (in-package ,package-name)
        (defmacro ,(intern "DEFPATTERN" package) (name (&key parameters audition accompany) &body body)
          `(progn
             ;; Tempted to transform the name so it can't collide with
  
negative.code:   (list
     (list '*channel-timer* (lambda () (vector nil nil nil)))))
  
  (defmacro define-song (name (&key use-packages artist (copyright-holder artist)))
    (unless (stringp name)
      (error "Song name must be a string"))
    (let* ((package-name (if (symbolp name)
  