anchor.diff:    (monkey (satisfied t) (:object ?monkey))
     =>
     (format t "Monkey is satisfied: ~S~%" ?monkey))
  +
  +(defrule cleanup (:salience -100)
  +  (?fact (mab-fundamental))
  +  =>
  +  (retract ?fact))
   
   ;;; startup rule...
   
  
positive.code:    (weight :initarg :weight
             :initform 'light)))
  
  (defclass chest ()
    ((name :initarg :name)
     (contents :initarg :contents)
     (unlocked-by :initarg :unlocked-by)))
  
  (defclass goal-is-to ()
    ((action :initarg :action)
     (argument-1 :initarg :argument-1)
     (argument-2 :initarg :argument-2
  
negative.code: ;;; introspection. The last form illustrates how one might limit the slots of
  ;;; interest by specifying them explicitly...
  
  (defimport mab-fundamental (lisa-user::mab-fundamental) ())
  
  (defimport monkey (lisa-user::monkey (mab-fundamental)) ())
  
  (defimport thing (lisa-user::thing (mab-fundamental)) ())
  
  (defimport chest (lisa-user::chest (mab-fundamental)) ())
  
  (defimport goal-is-to (lisa-user::goal-is-to (mab-fundamental))
    (action argument-1 argument-2))
  
  ;;;(watch :activations)
  