anchor.diff:    (let* ((name (car function-list))
   	 (function (get-bst-function-of-type name '(built-in wiz-defined compiled-wiz-defined))))
       (if *bst-compiling*
  -	(push (bst-compile-thunkcall name) *main-lisp-body*)
  +	(progn 
  +	  (push (bst-compile-thunkcall name) *main-lisp-body*)
  +	  (push function *bst-function-call-sequence*))
         (bst-execute function))))
   
   (define-bst-command "FUNCTION" (function-list function-definition)
  
positive.code:   (let* ((name (car function-list))
  	 (function (get-bst-function-of-type name '(built-in wiz-defined compiled-wiz-defined))))
      (if *bst-compiling*
  	(push `(dolist (*bib-entry* ,*bib-entries-symbol*)
  		 ,(bst-compile-thunkcall name))
  	      *main-lisp-body*)
        (dolist (*bib-entry* *bib-entries*)
  	(bst-execute function)))))
  
  
negative.code: 	 (function (get-bst-function-of-type name '(built-in wiz-defined compiled-wiz-defined))))
  	
      (if *bst-compiling*
  	(progn
  	  (push `(dolist (*bib-entry* (reverse ,*bib-entries-symbol*))
  		  ,(bst-compile-thunkcall name))
  		*main-lisp-body*)
  	  (push function *bst-function-call-sequence*))
  	(dolist (*bib-entry* (reverse *bib-entries*))
  	  (bst-execute function)))))
  
  