failing-with-optima.lisp

(ql:quickload :optima)
(ql:quickload :split-sequence)

(defun process-auth-header (auth-header)
  "Validate that is the correct 'scheme' (NOQ) and return the id and the
  digest."
  (match (split-sequence #\: auth-header)
    ((list first digest) (cons digest . first))))

;; Error
;;
;; The value FIRST is not of type LIST.
;;   [Condition of type TYPE-ERROR]
;;
;; Expected
;;
;; (process-auth-header "NOQ toto:ly0u787twocI0k1SnvB2mp0dnaobK2tsdtiiNRzyYXE=")
;; => ly0u787twocI0k1SnvB2mp0dnaobK2tsdtiiNRzyYXE=


;; Silly rabbit an extra .

;; Finished function

(defun process-auth-header (auth-header)
  "Validate that is the correct 'scheme' (NOQ) and return the id and the
  digest."
  (match (split-sequence #\: auth-header)
    ((list first digest)
     (match (split-sequence #\Space first)
       ((list scheme user-id)
        (progn
          (assert (string= scheme "NOQ"))
          (values user-id digest)))))))