anchor.diff:  (define-key *universal-argument-keymap* "-" 'universal-argument-minus)
   (loop :for n :from 0 :to 9
         :for command := (read-from-string (format nil "universal-argument-~D" n))
  -      :do (define-key *universal-argument-keymap* (prin1-to-string n) command)
  -          ;(define-key *universal-argument-keymap* (format nil "C-~D" n) command)
  +      :do (define-key *global-keymap* (format nil "M-~D" n) command)
  +          (define-key *universal-argument-keymap* (prin1-to-string n) command)
             (define-key *universal-argument-keymap* (format nil "M-~D" n) command))
   
   (define-command universal-argument () ()
  
positive.code: 
  (define-minor-mode universal-argument-mode
      (:name "C-U"
       :keymap *universal-argument-keymap*)
    (reset-argument))
  
  (define-key *global-keymap* "C-u" 'universal-argument)
  (define-key *universal-argument-keymap* "C-g" 'universal-argument-abort)
  
negative.code: 
  (defmacro def-universal-argument-n (n)
    `(define-command ,(alexandria:symbolicate (format nil "UNIVERSAL-ARGUMENT-~D" n)) () ()
       (universal-argument-mode t)
       (argument-n *argument* ,n)
       (update-message)))
  
  