Fix loot

1 files changed, 4 insertions, 5 deletions

diff --git a/loot.lsp b/loot.lsp
index 727f8f3..e5e9e81 100644
--- a/loot.lsp
+++ b/loot.lsp
@@ -1,13 +1,12 @@
 ;;; Port of https://en.wikipedia.org/wiki/ModernPascal#Code_Sample[3].
-;;; And then to CL.
 ;;; I prefer my version.
 (defconstant +max-probability+ 1000)
 ;; Because this is a simple enum and not a full sum/product type,
 ;; I use symbols instead of CLOS.
-(defconstant +loot-type+ (vector 'bloodstone 'copper 'emeraldite 'gold
-                           'heronite 'platinum 'shaownite 'silver
-                           'soranite 'umbrarite 'cobalt 'iron
-                           'nothing))
+(defconstant +loot-type+ #(bloodstone copper emeraldite gold
+                           heronite platinum shadownite silver
+                           soranite umbrarite cobalt iron
+                           nothing))
 (defclass <looter> () ((probabilities :accessor probabilities)))
 (defgeneric choose (self))
 (defmethod choose ((self <looter>))