anchor.diff:  ;;; %% Miscellaneous Monadic Functions
   
   (labels ((defop-monadic (op &optional (classes %numeric-instance-classes%))
  -	   (defop op :diadic-p nil :variadic-p nil
  -		  :default nil :classes classes)))
  +	   (defop op :diadic-p nil :classes classes)))
   
   ;;; %%% EXP
   
  
positive.code: 
  ;; regarding reading of floating point values,
  ;; on a sidebar, see also SB-IMPL::MAKE-FLOAT
  
negative.code: 
  (defop 'log :variadic-p nil)
  
  ;;; % Overloading for Other Monadic Functions
  
  ;; FIXME : Observing the implementation of the respetive CL functions
  