anchor.diff:    (unless (setf-name-p name)
       (error "~S is not a valid name for a SETF* generic function." name))
     `(defmethod ,(make-setf*-gfn-name name) ,lambda-list ,@body))
  -
  
positive.code: (in-package :clim-internals)
  
  (defun setf-name-p (name)
    (and (listp name) (eq (car name) 'setf)))
  
  ;;; Many implementations complain if a defsetf definition and a setf function
  ;;; exist for the same place. Time to stop fighting that...
  
negative.code: 			    (symbol-name '#:star))
  		    (symbol-package name-sym)))))
  
  (defmacro defgeneric* (fun-name lambda-list &body options)
    "Defines a SETF* generic function.  FUN-NAME is a SETF function
  name.  The last required argument is the single argument to the function in a
  