1 (defpackage "SB-ROTATE-BYTE"
2 (:use
"CL" "SB-C" "SB-VM" "SB-INT" "SB-KERNEL" "SB-ASSEM"
4 (:export
"ROTATE-BYTE"))
5 (eval-when (:compile-toplevel
:load-toplevel
:execute
)
6 (setf (sb-int:system-package-p
(find-package "SB-ROTATE-BYTE")) t
))