|
|
@@ -274,8 +274,8 @@
|
|
|
(defun handle-hodl-buy (chat-id from args)
|
|
|
(handler-case
|
|
|
(let ((symbol (get-label-symbol (nth 1 args)))
|
|
|
- (amount (parse-float (nth 2 args)))
|
|
|
- (open (parse-float (nth 3 args)))
|
|
|
+ (amount (* (parse-float (nth 2 args)) 1))
|
|
|
+ (open (* (parse-float (nth 3 args)) 1))
|
|
|
(open-at (if (nth 4 args) (local-time:parse-timestring (nth 4 args)) (local-time:now))))
|
|
|
(db/order-buy chat-id (agets from "id") (agets from "username")
|
|
|
symbol (princ-to-string amount) (princ-to-string open)
|
|
|
@@ -288,8 +288,8 @@
|
|
|
(defun handle-hodl-sell (chat-id from args)
|
|
|
(handler-case
|
|
|
(let* ((symbol (get-label-symbol (nth 1 args)))
|
|
|
- (amount (parse-float (nth 2 args)))
|
|
|
- (close (parse-float (nth 3 args)))
|
|
|
+ (amount (* (parse-float (nth 2 args)) 1))
|
|
|
+ (close (* (parse-float (nth 3 args)) 1))
|
|
|
(close-at (if (nth 4 args) (local-time:parse-timestring (nth 4 args)) (local-time:now)))
|
|
|
(user-id (agets from "id"))
|
|
|
(orders (db/orders-get chat-id user-id symbol t))
|
