anchor.diff:                   'string))
     (fresh-line))
   
  +(defun game-repl ()
  +  (let ((cmd (game-read)))
  +    (unless (eq (car cmd) 'quit)
  +      (game-print (game-eval cmd))
  +      (game-repl))))
  +
  
positive.code: (defun inventory ()
    (cons 'items- (objects-at 'body *objects* *object-locations*)))
  
  (defun game-repl ()
    (let ((cmd (game-read)))
      (unless (eq (car cmd) 'quit)
        (game-print (game-eval cmd))
        (game-repl))))
  
  (defun game-read ()
    (let ((cmd (read-from-string
  
negative.code:     (flet ((quote-it (x)
               (list 'quote x)))
        (cons (car cmd) (mapcar #'quote-it (cdr cmd))))))
  
  (defun tweak-text (lst caps lit)
    (when lst
  