anchor.diff:  		   (t
   		    (push `(if (null ,var)
   			       (traced-funcall
  -				,error
  +				(car (load-time-value
  +				      (sicl-env:function-cell
  +				       'error
  +				       ,*linkage-environment*)
  +				      nil))
   				'sicl-additional-conditions:too-few-arguments
   				:lambda-list ',lambda-list
   				:arguments ,arguments-var)
  
positive.code: 	   (progn (push `(unless (or (null ,var)
  				     (getf ,var :allow-other-keys))
  			   (traced-funcall
  			    ,error
  			    'sicl-additional-conditions:unrecognized-keyword-argument
  			    :keyword (first ,var)
  			    :lambda-list ',lambda-list
  
negative.code:        (if (null rest)
  	   (progn (push `(unless (null ,var)
  			   (traced-funcall
  			    (car (load-time-value
  				  (sicl-env:function-cell
  				   'error
  				   ,*linkage-environment*)
  				  nil))
  			    'sicl-additional-conditions:too-many-arguments
  			    :lambda-list ',lambda-list
  			    :arguments ,arguments-var))
  