anchor.diff:  ;;;; TRE environment
  -;;;; Copyright (C) 2005-2008 Sven Klose <pixel@copei.de>
  +;;;; Copyright (c) 2005-2009 Sven Klose <pixel@copei.de>
   ;;;;
   ;;;; Structures
   
  
positive.code:       ,@(%struct-getters name flds)
        (defmacro ,(make-symbol (string-concat "WITH-" (symbol-name name))) (s &rest body)
  		 `(with-struct ,name ,,s ,,@body)))))
  
negative.code:     (dolist (i (%struct-def name) (queue-list form))
        (enqueue form (car i)))))
  
  (defun %defstruct-expander (name &rest fields-and-options)
    "Define new structure."
    (multiple-value-bind (flds opts) (%struct-sort-fields fields-and-options)
      (%struct-add-def name flds)
  