anchor.diff:      (%error "arguments expected")
       (if (= 1 (length args))
         `(%%defunsetf ,(car args)) ; Keep for DEFUN argument name.
  -      `(progn ,@(%setf args)))))
  +      `(progn
  +		 ,@(%setf args)))))
   
   (defun (setf symbol-function) (fun sym)
     (%set-atom-fun sym fun))
  
positive.code: ;;;; Copyright (C) 2005-2008 Sven Klose <pixel@copei.de>
  ;;;;
  ;;;; SETF macro
  
  ;; Assign evaluated value of argument y to variable x.
  (defmacro set (x y)
  
negative.code: 
  (defun %setf-complement (p val)
    (if (or (atom p)
  		  (and *setf-immediate-slot-value*
  			   (%slot-value? p)))
  	  (progn
  		(if (member p *constants*)
  		    (%error "cannot set constant"))
  