From 7f2e3161a629e924d32f97a9a23f9a2fb152d40e Mon Sep 17 00:00:00 2001 From: Adlai Chandrasekhar Date: Fri, 19 Apr 2024 23:46:28 +0300 Subject: [PATCH] -am actual dev #lol --- exchange.lisp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/exchange.lisp b/exchange.lisp index a591f95..391ab54 100644 --- a/exchange.lisp +++ b/exchange.lisp @@ -50,7 +50,11 @@ end-of-file) ; CAN YOU SMELL THE BAD (condition) ; PATTERN THAT BEGS FOR (warn (with-output-to-string (warning) ; YOU TO HIRE - (describe condition warning))) ; ACTUAL DEVS? + ;; (describe condition warning) + (format warning "~A ... ~D" ; _ ; ACTUAL DEVS? + (class-of condition) + (floor (integer-length backoff) + (or (ignore-errors) 2))))) (if (zerop backoff) (return) ; might prevent nonce reuse... (sleep (incf backoff backoff))))))) ; probably won't ;;; why don't you (:use :drakma) , don't bother reimplementing... @@ -785,7 +789,7 @@ (defmethod execute ((tracker execution-tracker) (command (eql :rebase))) (with-slots (bases trades) tracker - (setf bases nil) (dolist (next (reverse trades)) + (setf bases nil) (dolist (next (reverse trades)) ; &a-o-k ? (update-bases tracker next)))) (defmethod perform ((tracker execution-tracker) &key)