anchor.diff:  
   (defmethod make-alias ((namespace (eql 'macro))
                          original alias args)
  +  (declare (ignore args))
     (alexandria:with-gensyms (args)
       `(setf (macro-function ',alias)
              (lambda (&rest ,args)
  
positive.code: 
  (defmethod make-alias ((namespace (eql 'special))
                         original alias args)
    `(define-symbol-macro ,alias ,original))
  
  (defnamespace constant
  
negative.code: 
  (defmethod make-alias ((namespace (eql 'constant))
                         original alias args)
    (declare (ignore args))
    `(define-symbol-macro ,alias ,original))
  