anchor.diff:  (defun run-tests (tests)
     (mapcar #'eval-printing tests))
   
  -(eval-when (:compile-toplevel)
  -  (run-tests *tests*))
  +(defun simple-test ()
  +  (princ (princ 'quit)))
  
positive.code: ;; Common Lisp Script
  ;; Manoel Vilela
  
  
  (defpackage :text-game-engine
    (:use :cl))
  
  (in-package :text-game-engine)
  
  ;; node (description)
  (defparameter *nodes* '((living-room (you are in the living-room.
  
negative.code: 
  
  ;; commands whose the user can be type at repl
  (defparameter *allowed-commands* '(inventory look walk pickup drop help))
  
  ;; a lot of tests for running
  ;; on the end of that script
  