|
@@ -160,7 +160,7 @@ Actions:
|
|
|
(if (member item-to-buy '("gruel" "ammo" "petrofuel" "archeotech" "spice") :test #'string=)
|
|
|
(progn
|
|
|
(buy-transaction item-to-buy quantity)
|
|
|
- (trade-menu))))
|
|
|
+ (trade-menu)))))
|
|
|
|
|
|
|
|
|
(defun sell-transaction (resource quantity)
|
|
@@ -209,7 +209,7 @@ Actions:
|
|
|
(if (member item-to-sell '("gruel" "ammo" "petrofuel" "archeotech" "spice") :test #'string=)
|
|
|
(progn
|
|
|
(sell-transaction item-to-sell quantity)
|
|
|
- (trade-menu))))
|
|
|
+ (trade-menu)))))
|
|
|
|
|
|
|
|
|
(defun display-prices ()
|