anchor.diff:    (:use :cl)
     (:export :lowslope))
   
  +(defpackage :soundlab.notes
  +  (:documentation
  +   "Procedures that implement a simple western note system.")
  +  (:use :cl)
  +  (:export :shift-note
  +	   :octave))
  +
   (defpackage :soundlab-user
     (:documentation
      "User package that interns all soundlab packages.")
     (:use :cl
   	:soundlab.sampling
   	:soundlab.waves
  +	:soundlab.combinators
  +	:soundlab.envelope
  +	:soundlab.tempo
   	:soundlab.waves.envelope
  -	:soundlab.notes
  -	:soundlab.tempo
  -	:soundlab.envelope
  -	:soundlab.combinators
  -	:soundlab.filters))
  +	:soundlab.filters
  +	:soundlab.notes))
  
positive.code: 	   :repeat
  	   :envelope*))
  
  (defpackage soundlab.waves.envelope
    (:documentation
     "Wave form from envelope.")
  
negative.code: 	   :export-wave*
             :wave-signals))
  
  (defpackage :soundlab.waves
    (:documentation
     "Procedures which generate wave forms.")
    (:use :cl)
    (:export :sine
  	   :binary
  ;	   :sawtooth
  	   :flatline))
  
  (defpackage :soundlab.combinators
    (:documentation
  