3 Commits

Author SHA1 Message Date
b0e5a4a44d Add 64bit LispWorks fasl files to gitignore. 2013-03-11 21:13:04 +01:00
f3e56080be Update NEWS for 1.0.1 release. 2013-03-11 21:11:15 +01:00
a016c81cf4 Use 32bit implementation for 64bit LispWorks.
Quick and dirty benchmarks seem to imply that 32bit implementation is
faster for 64bit LispWorks than 16bit implementation, even though it
causes more consing.
2013-03-11 21:07:01 +01:00
3 changed files with 15 additions and 5 deletions

1
.gitignore vendored
View File

@ -2,6 +2,7 @@
*.fas *.fas
*.fasl *.fasl
*.ofasl *.ofasl
*.64ofasl
*.nfasl *.nfasl
*.xfasl *.xfasl
*.dx32fsl *.dx32fsl

5
NEWS
View File

@ -1,3 +1,8 @@
Release 1.0.1
=============
* Change to 32bit implementation for 64bit LispWorks.
Release 1.0.0 Release 1.0.0
============= =============

View File

@ -26,7 +26,7 @@
;;;; other dealings in this Software without prior written authorization ;;;; other dealings in this Software without prior written authorization
;;;; from the author. ;;;; from the author.
;;;; ;;;;
;;;; $Id$ ;;;; $Id: 2cbc5857639b13160ef580514a78749c02b70c0b $
(cl:in-package #:cl-user) (cl:in-package #:cl-user)
@ -50,9 +50,11 @@
(:file "keccak-64bit" :depends-on ("pkgdef" "common")) (:file "keccak-64bit" :depends-on ("pkgdef" "common"))
#+(or (and :sbcl (not (or :x86-64 :alpha))) #+(or (and :sbcl (not (or :x86-64 :alpha)))
:cmucl :cmucl
(and :ccl :64-bit-target)) (and :ccl :64-bit-target)
(and :lispworks :lispworks-64bit))
(:file "keccak-32bit" :depends-on ("pkgdef" "common")) (:file "keccak-32bit" :depends-on ("pkgdef" "common"))
#-(or :sbcl :cmucl (and :ccl :64-bit-target)) #-(or :sbcl :cmucl (and :ccl :64-bit-target)
(and :lispworks :lispworks-64bit))
(:file "keccak-16bit" :depends-on ("pkgdef" "common")) (:file "keccak-16bit" :depends-on ("pkgdef" "common"))
(:file "sha3" (:file "sha3"
:depends-on ("pkgdef" :depends-on ("pkgdef"
@ -61,7 +63,9 @@
"keccak-64bit" "keccak-64bit"
#+(or (and :sbcl (not (or :x86-64 :alpha))) #+(or (and :sbcl (not (or :x86-64 :alpha)))
:cmucl :cmucl
(and :ccl :64-bit-target)) (and :ccl :64-bit-target)
(and :lispworks :lispworks-64bit))
"keccak-32bit" "keccak-32bit"
#-(or :sbcl :cmucl (and :ccl :64-bit-target)) #-(or :sbcl :cmucl (and :ccl :64-bit-target)
(and :lispworks :lispworks-64bit))
"keccak-16bit")))) "keccak-16bit"))))