anchor.diff:  					`(,var nil ,supplied))
   				    optional
   				    supplied-vars)))
  -		 
  +
   		 ,@(and rest
   			`(&rest ,rest-arg))))
   	   (required-params (mapcar #'(lambda (var)
  
positive.code: ;;; Library General Public License for more details.
  ;;;
  ;;; You should have received a copy of the GNU Library General Public
  ;;; License along with this library; if not, write to the 
  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
  ;;; Boston, MA  02111-1307  USA.
  
  (in-package :clim-internals)
  
negative.code: 
  (def-stream-method sheet-medium ((stream standard-encapsulating-stream)))
  
  (def-stream-method invoke-with-sheet-medium-bound
      (continuation medium (stream standard-encapsulating-stream)))
  
  (def-stream-method queue-repaint ((stream standard-encapsulating-stream)
  				  repaint-event))
  
  