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: (defun F-or () (FALSE-bitwise #'bit-ior))
  (defun F-set () (set (intern (coerce `(,(F-pop)) 'string)) (F-pop)))
  (defun F-acc () (F-push (eval (intern (coerce `(,(F-pop)) 'string)))))
  
  (defmacro FALSE-encapsulate (&rest args) `(progn (F-space) ,@args (F-nilcull)))
  
  (defun FALSE-fun (ch) (cond
  			((equal ch #\') (setf *FALSE-char-mode* t) nil)
  			(*FALSE-char-mode* (setf *FALSE-char-mode* nil)
  					   `(F-push (char-int ,ch)))
  			((equal ch #\[) (setf *FALSE-current-lambda* nil)
  					(setf *FALSE-lambda-mode* t) nil)
  			((equal ch #\]) 
  
negative.code:   (loop for input = (read-line)
  	until (equalp input "")
  	do (eval `(FALSE-parse ,input))
  	do (format t "~%~{~A ~}~%~%CL-FALSE> " (reverse *FALSE-stack*))
  	do (finish-output)))
  
  (FALSE-REPL)
  