anchor.diff:  			    (symbol-name '#:star))
   		    (symbol-package name-sym)))))
   
  -(defun make-arglist (args)
  -  "Convert the list ARGS to a list of arguments in the form (var
  -init-form supplied-p-parameter)."
  -  (mapcar (lambda (a) `(,a nil ,(gensym))) args))
  -
   (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
  
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:   (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))
  