anchor.diff:  
   (defun spin-button-spin (spin-button value)
     (etypecase value
  -    (real (%spin-button-spin spin-button :spin-user-defined value))
  +    (real (%spin-button-spin spin-button :user-defined value))
       (spin-type (%spin-button-spin spin-button value 0))))
   
   
  
positive.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: gtk.lisp,v 1.91 2008-03-20 15:44:01 espen Exp $
  
  
  (in-package "GTK")
  
negative.code:       (format nil "Gtk+ v~A.~A.~A" major minor micro))))
  
  (defun clg-version ()
    "clg 0.94")
  
  
  ;;;; Initalization and display handling
  