anchor.diff:  
   (define-minor-mode universal-argument-mode
       (:name "C-U"
  -     :keymap *universal-argument-keymap*)
  -  (reset-argument))
  +     :keymap *universal-argument-keymap*))
   
   (define-key *global-keymap* "C-u" 'universal-argument)
   (define-key *universal-argument-keymap* "C-g" 'universal-argument-abort)
  
positive.code: (in-package :lem.universal-argument)
  
  (defparameter *base* 4)
  (defvar *argument*)
  (defvar *universal-argument-keymap*
    (make-keymap :name '*universal-argument-keymap*
                 :undef-hook 'universal-argument-default))
  
  (defstruct arg-state
    (type nil)
    (u 1)
    (n '()))
  
  (defun to-integer (arg-state)
    (case (arg-state-type arg-state)
  
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)))
  
  