anchor.diff:  ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>
   ;;;;**************************************************************************
   
  +
   (eval-when (:compile-toplevel :load-toplevel :execute)
     (setf *readtable* (copy-readtable nil)))
  +
   (defpackage "COM.INFORMATIMAGO.COMMON-LISP.LISP-SEXP.SOURCE-FORM"
     (:use "COMMON-LISP")
     (:export
  
positive.code:                      :initarg :body-parameter
                       :type     body-parameter)))
  
  (defclass orakawbe-ll (orakawb-ll)
    ((environment      :accessor lambda-list-environment-parameter
                       :initarg :environment-parameter
  
negative.code:   (:method ((self orakawbe-ll)) (slot-boundp self 'environment))
    (:method ((self orake-ll))    (slot-boundp self 'environment))
    (:method ((self t))           (declare (ignorable self)) nil))
  
  (defgeneric remove-environment (ll)
    (:method ((ll orake-ll))    (slot-makunbound ll 'environment))
    (:method ((ll orakawbe-ll)) (slot-makunbound ll 'environment))
    (:method ((ll t))))
  
  (defgeneric remove-whole (ll)
    (:method ((ll orakawb-ll))  (slot-makunbound ll 'whole))
    (:method ((ll t))))
  
  
  
  