anchor.diff:                            ;; We can't compile the function as a macro if
                             ;; there are declarations for it.
                             (partition-declarations (list fq) decls env)
  -                          (memq name quoted-functions))))
  +                          (member name quoted-functions))))
                        names)))))
   
   (defmacro fbind (bindings &body body &environment *lexenv*)
  
positive.code:                ;; useful than it sounds. After all the compiler warns
                 ;; you if the function is unused but not declared
                 ;; ignored.)
                 (memq expr ignored))
               (lambda? (expr)
                 ;; Note that `analyze-fbinds' has already done the work
                 ;; of exposing lambda inside let.
  
negative.code:                         collect `(,name ,@(cdr lambda)))
                  ,@(loop for var in vars
                          for temp in temps
                          unless (member var macro-vars)
                            collect (build-bind/ftype var temp decls env)))
             #-sbcl (declare (inline ,@(set-difference vars macro-vars)))
             ,@decls
             (macrolet (,@(loop for var in vars
                                for temp in temps
                                when (member var macro-vars)
                                  collect `(,var
                                            (&rest args)
                                            (list* 'funcall ',temp args))))
  