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