(defun read-qname (s) (iter (for b in-stream s using #'read-byte) (if (equal b 0) (return q)) (for f = (make-array b :fill-pointer 0 :element-type '(unsigned-byte 8))) (dotimes (_ b (collect (octets-to-string f) into q)) (vector-push (read-byte s) f))))
-
-
Prikaži ovu nit
-
;; leaving out these little details: (defpackage twitter (:use #:cl #:iterate #:babel)) (in-package :twitter)
Prikaži ovu nit
Kraj razgovora
Novi razgovor -
-
-
why CL?
-
because buildLisp.nix exists nowhttps://twitter.com/tazjin/status/1213996934190551041 …
- Još 3 druga odgovora
Novi razgovor -
Čini se da učitavanje traje već neko vrijeme.
Twitter je možda preopterećen ili ima kratkotrajnih poteškoća u radu. Pokušajte ponovno ili potražite dodatne informacije u odjeljku Status Twittera.