anchor.diff:    (: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))))
   
   
   
  
positive.code: ;;;;LEGAL
  ;;;;    AGPL3
  ;;;;
  ;;;;    Copyright Pascal J. Bourguignon 2006 - 2016
  ;;;;
  ;;;;    This program is free software: you can redistribute it and/or modify
  ;;;;    it under the terms of the GNU Affero General Public License as published by
  
negative.code:                      :initarg :body-parameter
                       :type     body-parameter)))
  
  
  (defclass orakawbe-ll (orakawb-ll)
    ((environment      :accessor lambda-list-environment-parameter
                       :initarg :environment-parameter
  