Commit 7520ea42 authored by ch's avatar ch
Browse files

Removed testing garbage that should not have been there in the first place

darcs-hash:20080518110142-c72ca-cf2203d1a57955d0e3a0e54acea245b89124d6fa
parent 23bb3b0a
......@@ -183,27 +183,3 @@ Throws an error if the character encoding is not known."
(unless (= end strlen)
(princ (subseq str end strlen) stream))
(return (get-output-stream-string stream)))))
(loop
:for x = 0 :then end
:for (start end)
:on '(4 5 8 12 12 18 20 30)
:by #'cddr
:if (not (= x start))
:collect (list 'a x start)
:collect (list 'b start end)
:loop-
(decode "=?uTf-8?b?YmF6?=baz")
(decode* (cl-rfc2047::string+ "some=?uTf-8?b?Zm9v?=" cl-rfc2047::*crlfsp*
"=?uTf-8?b?YmF6?=bar"))
(ppcre:all-matches-as-strings
(string+ *decoded-line-regexp*
"(" *crlfsp* *decoded-line-regexp* ")*")
(cl-rfc2047::string+ "some=?uTf-8?b?Zm9v?=" cl-rfc2047::*crlfsp*
"=?uTf-8?b?YmF6?=bar") )
(ppcre:all-matches-as-strings "ab*c(dab*c)*" "ffabbcdabcggabbbc")
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment