anchor.diff:  	   :repeat
   	   :envelope*))
   
  +(defpackage :soundlab.envelope
  +  (:documentation
  +   "Implementation of Attack-Decay-Sustain-Release envelopes.")
  +  (:use :cl)
  +  (:export :envelope
  +	   :linear
  +	   :square))
  +
  +(defpackage :soundlab.tempo
  +  (:documentation
  +   "Special timing variables and procedures to convert tempo units.")
  +  (:use :cl)
  +  (:export :bpm-quarter-note
  +	   :interval-frequency
  +	   :tempo-offset
  +           :shift
  +	   :set-tempo
  +	   :note :note-if
  +	   :1/2-note :1/2-note-if
  +	   :1/4-note :1/4-note-if
  +	   :1/8-note :1/8-note-if
  +	   :1/16-note :1/16-note-if
  +	   :1/32-note :1/32-note-if))
  +
   (defpackage soundlab.waves.envelope
     (:documentation
      "Wave form from envelope.")
  
positive.code:   (:use :cl)
    (:export :lowslope))
  
  (defpackage :soundlab-user
    (:documentation
     "User package that interns all soundlab packages.")
    (:use :cl
  	:soundlab.sampling
  	:soundlab.waves
  	:soundlab.waves.envelope
  	:soundlab.notes
  	:soundlab.tempo
  	:soundlab.envelope
  	:soundlab.combinators
  	:soundlab.filters))
  
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
  