search

edicl / hunchentoot

Web server written in Common Lisp
https://edicl.github.io/hunchentoot/
702 stars 125 forks source link

md5-hex bug #49

Closed html closed 11 years ago

html commented 11 years ago

I have latest 1.2.7 version hunchentoot, here is how I'm reproducing bug

T

alaa-alawi commented 11 years ago

I have hunchentoot 1.2.5.

I'm running Ubuntu 12.04 LTS Desktop 32bit

It works on LispWorks 6.1 on Linux

CL-USER> (lisp-implementation-type)
"LispWorks" 
CL-USER> (lisp-implementation-version)
"6.1.1" 
CL-USER> (hunchentoot::md5-hex "test1")
"5A105E8B9D40E1329780D62EA2265D8A" 
CL-USER> (hunchentoot::md5-hex "test2")
"AD0234829205B9033196BA818F7A872B" 
CL-USER> (equal (hunchentoot::md5-hex "test2")
                (hunchentoot::md5-hex "test1"))
NIL

also in CCL

CL-USER> (lisp-implementation-type)
"Clozure Common Lisp"
CL-USER> (lisp-implementation-version)
"Version 1.8-r15286M  (LinuxX8632)"
CL-USER> (hunchentoot::md5-hex "test1")
"5A105E8B9D40E1329780D62EA2265D8A"
CL-USER> (hunchentoot::md5-hex "test2")
"AD0234829205B9033196BA818F7A872B"
CL-USER> (equal (hunchentoot::md5-hex "test2")
                (hunchentoot::md5-hex "test1"))
NIL

but it was as you said in SBCL

CL-USER> (lisp-implementation-type)
"SBCL"
CL-USER> (lisp-implementation-version)
"1.1.2.36-bf40ae8"
CL-USER> (hunchentoot::md5-hex "test1")
"6B2B73B25611F4E0CA1D52BD094B1608"
CL-USER> (hunchentoot::md5-hex "test2")
"6B2B73B25611F4E0CA1D52BD094B1608"
CL-USER> (equal (hunchentoot::md5-hex "test2")
                (hunchentoot::md5-hex "test1"))
T
hanshuebner commented 11 years ago

Fixed by https://github.com/edicl/hunchentoot/commit/2eb500ccc204d522814bcdb944e3800d5f575658, thanks for reporting!

On Sun, Jan 27, 2013 at 11:37 AM, fighting-spirit notifications@github.comwrote:

I have hunchentoot 1.2.5.

I'm running Ubuntu 12.04 LTS Desktop 32bit

It works on LispWorks 6.1 on Linux

CL-USER> (lisp-implementation-type) "LispWorks" CL-USER> (lisp-implementation-version) "6.1.1" CL-USER> (hunchentoot::md5-hex "test1") "5A105E8B9D40E1329780D62EA2265D8A" CL-USER> (hunchentoot::md5-hex "test2") "AD0234829205B9033196BA818F7A872B" CL-USER> (equal (hunchentoot::md5-hex "test2") (hunchentoot::md5-hex "test1")) NIL

also in CCL

CL-USER> (lisp-implementation-type) "Clozure Common Lisp" CL-USER> (lisp-implementation-version) "Version 1.8-r15286M (LinuxX8632)" CL-USER> (hunchentoot::md5-hex "test1") "5A105E8B9D40E1329780D62EA2265D8A" CL-USER> (hunchentoot::md5-hex "test2") "AD0234829205B9033196BA818F7A872B" CL-USER> (equal (hunchentoot::md5-hex "test2") (hunchentoot::md5-hex "test1")) NIL

but it was as you said in SBCL

CL-USER> (lisp-implementation-type) "SBCL" CL-USER> (lisp-implementation-version) "1.1.2.36-bf40ae8" CL-USER> (hunchentoot::md5-hex "test1") "6B2B73B25611F4E0CA1D52BD094B1608" CL-USER> (hunchentoot::md5-hex "test2") "6B2B73B25611F4E0CA1D52BD094B1608" CL-USER> (equal (hunchentoot::md5-hex "test2") (hunchentoot::md5-hex "test1")) T

— Reply to this email directly or view it on GitHubhttps://github.com/edicl/hunchentoot/issues/49#issuecomment-12752436.