anchor.diff:       (description :accessor description :initarg :description)
        (history :accessor history :initarg :history :initform nil
   	      :documentation "Who knows?")
  -     (parameters-are-types :accessor parameters-are-types 
  +     (parameters-are-types :accessor parameters-are-types
   			   :initarg :parameters-are-types
   			   :initform nil)
        (expansion-function :accessor expansion-function
  
positive.code: 	(result-size nil))
      (map-applicable-translators
       #'(lambda (translator presentation context)
  	 (if (and result-context (not (eq result-context context)))
  	     ;; Return inner presentation
  	     (return-from find-innermost-presentation-match
  	       (values result result-translator result-context))
  
negative.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)
  