anchor.diff:  
   (defun F-space () (when (typep (car *FALSE-stack*) 'fixnum) (push nil *FALSE-stack*)))
   
  -(defun lowercase-p (ch) (and (>= (char-int ch) (char-int #\a))
  -			     (<= (char-int ch) (char-int #\z))))
  +(defun lowercase-p (ch) (and (>= (char-code ch) (char-code #\a))
  +			     (<= (char-code ch) (char-code #\z))))
   
   (defmacro FALSE-rearr (to-pop &rest pushing)
       `(let ,(loop for i from 1 to to-pop
  
positive.code: 	until (= c 0)
  	do (funcall con)
  	do (setf c (F-pop))
  	when (= c -1) do (funcall fun)
  	)))
  
  (defun F+ () (FALSE-arithmetic #'+))
  (defun F- () (FALSE-arithmetic #'-))
  
negative.code:     (#\; 'F-acc)
      ))
  
  (defun char->digit (c) (- (char-code c) (char-code #\0)))
  
  (defun argswap (fun x y) (funcall fun y x))
  
  