;;; smoke-bend-asm.lsp -- asm-tier-compatible bend test.
;;;
;;; asm tier doesn't have define-syntax, so we can't use the (bend ...)
;;; macro. The function-form bend!-call is the portable path.
;;;
;;; Prereqs:
;;;   - gpu-worker.lsp running on 127.0.0.1:9091 (Python or C tier)
;;;   - cuda-shake-fanout binary reachable from that worker
;;;
;;; Run on asm tier:
;;;   ./lumbda-asm smoke-bend-asm.lsp

(load "wire.lsp")
(load "bend.lsp")

(display "=== smoke-bend-asm ===\n")

(display "1. worker available? ")
(display (bend-worker-available?))
(newline)

(display "2. bend!-call '(cuda-shake-fanout (\"00\" \"01\" \"deadbeef\") 32): ")
(let ((r (bend!-call '(cuda-shake-fanout ("00" "01" "deadbeef") 32))))
  (display r) (newline))
