anchor.diff:  	   function-list))
     (let* ((bst-name (car function-list)))
       (unless (check-for-already-defined-function bst-name)
  -      (if *bst-compiling*
  -	  (compile-bst-function bst-name function-definition *lisp-stream*)
  -	(setf (gethash (string bst-name) *bst-functions*)
  -	      (make-bst-function :name (string bst-name)
  -				 :type 'wiz-defined
  -				 :body function-definition))))))
  +      (let ((bst-function (make-bst-function :name (string bst-name)
  +					     :type 'wiz-defined
  +					     :body function-definition)))
  +	(setf (gethash (string bst-name) *bst-functions*) bst-function)
  +	(when *bst-compiling*
  +	  (compile-bst-function bst-function)
  +	  (push bst-function *bst-definition-sequence*))))))
   
   (define-bst-command "INTEGERS" (name-list)
     (unless (listp name-list)
  
positive.code:     (loop
       (when (and *bst-compiling*
  		(char= (peek-char t *bst-stream* nil #\x) #\%))
         ;; Copy top-level comments; replace N leading % signs with N+1 semicola
         (terpri *lisp-stream*)
         (loop while (char= (peek-char t *bst-stream* nil #\x) #\%)
  	     do
  	     (princ ";" *lisp-stream*)
  	     (loop while (char= (peek-char nil *bst-stream* nil #\x) #\%)
  		   do (read-char *bst-stream*) (princ ";" *lisp-stream*))
  	     (princ (read-line *bst-stream* nil "") *lisp-stream*)
  	     (terpri *lisp-stream*)))
       (let ((command (bst-read :eof-ok t)))
         (when (eql command '*EOF*)
  	 (return))
  
negative.code:     (check-for-already-defined-function bst-name)
      (let* ((lexical (member bst-name *lexicals* :test 'string-equal))
  	   (lisp-name (bst-name-to-lisp-name bst-name
  					     (if lexical :lexical :variable)))
  	   (bst-function
  	    (register-bst-global-var bst-name lisp-name 'int-global-var
  				     '(integer) 0 *bst-functions*)))
        (when *bst-compiling*
  	(push bst-function *bst-definition-sequence*)))))
      
  (define-bst-command "ITERATE" (function-list)
    (unless *read-seen-p*
      (error "Illegal, iterate command before read command"))
  