anchor.diff:  ;; 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.
  
positive.code: (defun run-tests (tests)
    (mapcar #'eval-printing tests))
  
  (eval-when (:compile-toplevel)
    (run-tests *tests*))
  
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
  