anchor.diff:              (values min (or (/= min max) (/= rest 0) (/= key 0))))
             (values 0 t))))
   
  -  #| #+new-compiler
  +   #+new-compiler
     (defun REQUIRED-ARGUMENTS (name)
       (let* ((function (symbol-function name))
              (stype (system:%primitive get-vector-subtype function)))
  
positive.code: ;;; Fdefinition ********************
  ;;; ********************************
  ;;; fdefinition is a CLtL2 addition. 
  #+(and :cmu (not (or new-compiler :new-compiler)))
  (eval-when (compile eval)
    ;; Need to worry about extensions:encapsulate in CMU CL
    ;; Note: We should really be defining fdefinition as a function
    ;; in the "LISP" package and export it. But this will do for now,
    ;; especially since we only define it while compiling this code.
    ;; The use of (fboundp 'fdefinition) later in this file works
    ;; because (fboundp <macro>) returns t.
    ;; (export 'lisp::fdefinition "LISP")
    (defmacro FDEFINITION (x)
      `(lisp::careful-symbol-function ,x))
    (defsetf fdefinition lisp::set-symbol-function-carefully))
  
  
  ;;; ****************************************************************
  
negative.code:                 (values (length args) nil)))
            (values 0 t)))))|#
  
    ;#+new-compiler
    (defun REQUIRED-ARGUMENTS (name)
      (let ((type (ext:info function type name)))
        (cond ((not (kernel:function-type-p type))
  