commit - 4384f8ca59acd9de1d048a7720f91ddec3f0ab7b
commit + eecee47c28c6961c0848e5e985346efa11d88cd9
blob - b6d8c80d80f6ba9748b686f4db959340645cbdad
blob + bc1092547b47cea00cc2719f035886952cebfe99
--- gemini.lisp
+++ gemini.lisp
(error 'malformed-response :reason "response is longer than 1024 bytes"))
(setf res (string-trim '(#\return #\newline) res))
(destructuring-bind (status &optional meta) (cl-ppcre:split "\\s+" res :limit 2)
- (unless meta
+ (when (and (< (parse-integer status) 40) (not meta))
(error 'malformed-response :reason "missing meta"))
(list (parse-status status) meta)))