anchor.diff:  
   (set-key `(com-forward-word ,*numeric-argument-marker*)
   	 'movement-table
  -	 '((#+mcclim :right #-mcclim :right-arrow :control)))
  +	 '((#+(or mcclim building-mcclim) :right #-(or mcclim building-mcclim) :right-arrow :control)))
   
   (set-key `(com-backward-word ,*numeric-argument-marker*)
   	 'movement-table
  
positive.code: 
  (set-key `(com-backward-line ,*numeric-argument-marker*)
  	 'movement-table
  	 '((#+mcclim :up #-mcclim :up-arrow)))
  
  (set-key 'com-beginning-of-line
  	 'movement-table
  
negative.code: 
  (set-key `(com-forward-object ,*numeric-argument-marker*)
  	 'movement-table
  	 '((#+(or mcclim building-mcclim) :right #-(or mcclim building-mcclim) :right-arrow)))
  
  (set-key `(com-backward-object ,*numeric-argument-marker*)
  	 'movement-table
  