anchor.diff:  ;; implementation would present all possible optimizations to the
   ;; compiler
   
  +;;; %% Miscellaneous Monadic Functions
  +
  +;;; %%% EXP
  +
  +;;; %%% SIGNUM
  +
  +;;; %%% SQRT, ISQRT
  +
  +;;; %%% CIS
  +
  +;;; %%% CONJUGATE
  +
  +;;; %%% PHASE
  +
  +;;; %%% Structural Accessor Functions
  +
  +;;; %%%% REALPART, IMAGPART
  +
  +;;; %%%% NUMERATOR, DENOMINATOR
  +
  +
  +;;; %% Overloading for Monadic Predicate Functions
  +
  +;;; %%% "Number-Line" Predicates
  +
   (defgeneric %minusp (a)
     (:method ((a number))
       (minusp a)))
  
positive.code:            (if top-gt-p top stack-max)))
          (t top)))))
  
  
  ;; (%max 1)
  ;; => 1
  ;; (@max 2 1)
  ;; => 2
  ;; (@max@ 1 3 2)
  ;; => 3
  
  
  ;; redefine @min@ to apply @< internally
  (defgeneric @min@ (&rest values)
  
negative.code: 
  ;; FIXME : run unit tests on each operation, for each %NUMERIC-END-CLASSES%
  
  ;; single instance test, ensure error
  ;; (@+@)
  
  
  ;;; %% Nary Comparison Functions
  
  (defop '=)
  (defop '/=)
  