anchor.diff:  (defmacro foo (&body bar)
     `(write-to-string ',bar))
   
  -;; midi stuff
  +;;; midi stuff
   
   (ql:quickload :midi)
   
  
positive.code:     :instrument :bar
      :fuck 'baz)
  
  ;; dur macro
  
  (defmacro d (&rest items)
    `(duration ',items))
  
negative.code: 
  (slot-value (make-instance 'event :amp 3) 'amp)
  
  ;;; sc stuff
  
  (in-package :sc)
  
  