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