anchor.diff:             finally (when (eql cur-char eof)
                        (error "Unexpected end-of-file while reading regex"))))))
   
  -  (defun read-regex-options (stream)
  +  (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)
  +  (defun %read-regex (stream char arg)
       (declare (ignore char arg))
  -    (let ((pattern (read-regex-string stream))
  -          (options (read-regex-options stream)))
  +    (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)
  
positive.code: 
  (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)
  
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
  