anchor.diff:  			  (partial-command-parser *partial-command-parser*)
   			  use-keystrokes)
     (read stream))
  +
  
positive.code: 
  (in-package :CLIM-INTERNALS)
  
  (defmacro define-command (name args &body body)
    `(defun ,name ,(loop for arg in args
  		     collect (first arg))
  
negative.code: ;;; -*- Mode: Lisp; Package: CLIM-INTERNALS -*-
  
  ;;;  (c) copyright 1998,1999,2000 by Michael McDonald (mikemac@mikemac.com)
  ;;;  (c) copyright 2000 by Robert Strandh (strandh@labri.u-bordeaux.fr)
  
  ;;; This library is free software; you can redistribute it and/or
  ;;; modify it under the terms of the GNU Library General Public
  