anchor.diff:  
   (defvar *help* nil)
   (defvar *restrict* nil)
  -(defvar *mini-mud* nil)
  -(defvar *mud-moved* nil)
   (defvar *olc-lock* nil)
   (defvar *no-rent-check* nil)
   (defvar *no-initial-zreset* nil)
  
positive.code:            finally (when (eql cur-char eof)
                       (error "Unexpected end-of-file while reading regex"))))))
  
    (defun read-regex-options (stream)
      (let ((eof (gensym "EOF")))
        (loop for char = (read-char stream nil eof)
           until (or (eql char eof)
                     (not (alphanumericp char)))
           collect char)))
  
    (defun read-regex (stream char arg)
      (declare (ignore char arg))
      (let ((pattern (read-regex-string stream))
            (options (read-regex-options stream)))
        `(load-time-value
           (cl-ppcre:create-scanner ,pattern
                                    :case-insensitive-mode ,(member #\i options)
  
negative.code: (eval-when (:load-toplevel :compile-toplevel)
    (defparameter *regex-macro-character* #\/)
  
    (defun %read-regex-string (stream)
      (let ((eof (gensym "EOF")))
        (with-output-to-string (str)
          (loop for prev-char = nil then cur-char
  