Use :fast-unsafe-source-file in the ASD file instead of setting

the compiler policy at the top of each Lisp source file.

package.lisp

@@ -1,6 +1,4 @@
 
-;;;; package.lisp
-
 (in-package #:common-lisp-user)
 
 (defpackage #:sip-hash

sip-hash.asd

@@ -2,18 +2,19 @@
 ;;;; sip-hash.asd
 
 (defsystem sip-hash
- :name "SipHash"
- :description "SipHash hash functions"
- :long-description
+  :name "SipHash"
+  :description "SipHash hash functions"
+  :long-description
 "SipHash, a cryptographically strong family of hash functions designed by
 Jean-Philippe Aumasson and Daniel J. Bernstein.  (http://131002.net/siphash/)"
- :version "1.4"
- :author "Robert Brown"
- :license "Public domain."
- :depends-on (com.google.base
-              nibbles
-              #+sbcl sb-rotate-byte)
- :in-order-to ((test-op (test-op sip-hash-test)))
- :components
- ((:file "package")
-  (:file "sip-hash" :depends-on ("package"))))
+  :version "1.5"
+  :author "Robert Brown"
+  :license "Public domain."
+  :defsystem-depends-on (com.google.base)
+  :depends-on (com.google.base
+               nibbles
+               #+sbcl sb-rotate-byte)
+  :in-order-to ((test-op (test-op sip-hash-test)))
+  :components
+  ((:file "package")
+   (:fast-unsafe-source-file "sip-hash" :depends-on ("package"))))

sip-hash.lisp

@@ -4,7 +4,6 @@
 ;;;; Author: Robert Brown (robert.brown@gmail.com)
 
 (in-package #:sip-hash)
-(declaim #.*optimize-fast-unsafe*)
 
 (defmacro mod-2^64 (x) `(logand ,x #.(ldb (byte 64 0) -1)))
 (defmacro +-u64 (x y) `(mod-2^64 (+ ,x ,y)))

sip-hash_test.lisp

@@ -13,7 +13,6 @@
  (:export #:test-sip-hash))
 
 (in-package #:sip-hash-test)
-(declaim #.*optimize-default*)
 
 (defsuite (test-sip-hash :in root-suite) ()
  (run-child-tests))