e18d61e9aaa0

--- a/src/robots/git-commands.lisp	Fri Jan 20 00:04:30 2017 +0000
+++ b/src/robots/git-commands.lisp	Fri Jan 20 11:48:56 2017 +0000
@@ -169,7 +169,7 @@
   ("-" :. letter [noun shellify string-upcase]))
 
 (define-string long-option%
-  !(let ((noun $[noun shellify]))
+  !(let ((noun (shellify noun)))
      $("--" :. !noun :. "=<" :. !noun :. ">"))
   ("--" :. action-verb)
   ("--" :. extremum)
@@ -198,7 +198,7 @@
 
 (define-string (description :arguments (command commanding))
   (look-for location "for the" age noun "and" !command "it")
-  ("read" (eval (+ 2 (random 2000))) "bytes from" location "and" !command "them")
+  ("read" !(random-range 200 9999) "bytes from" location "and" !command "them")
   (!command "the" extremum noun "in" git-location)
   (!command [noun a] temporal-adverb refreshing git-location)
   (!command "and push all" adjective [noun s] "to" location)

--- a/src/robots/rpg-shopkeeper.lisp	Fri Jan 20 00:04:30 2017 +0000
+++ b/src/robots/rpg-shopkeeper.lisp	Fri Jan 20 11:48:56 2017 +0000
@@ -113,9 +113,8 @@
 
 (define-rule (textile :distribution :weighted)
   (1.00 !*cloth*)
-  (1.00 !*leather*)
   (0.80 !*silk*)
-  (0.01 !*spider-silk*))
+  (0.05 !*spider-silk*))
 
 (define-rule (wood :distribution (:zipf :exponent 0.8))
   !*pine*