I found a problem with the flexi-streams:string-to-octets function. I
was getting the following back-trace when using it:
(ironclad:make-hmac (string-octets key) :sha1) from zs3:make-digester gives:
The value #(55 98 50 52 104 75 97 65 50 54 ...)
is not of type
(SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
[Condition of type TYPE-ERROR]
Restarts:
0: [DEFAULT-DEBUGGER] Use default debugger.
1: [ABORT] Return to SLIME's top level.
2: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread"
RUNNING {ACA40D1}>)
Backtrace:
0: ((SB-PCL::FAST-METHOD SHARED-INITIALIZE :AFTER (IRONCLAD::HMAC
T)) #<unavailable argument> #<unavail..
Locals:
SB-DEBUG::ARG-0 = 10
SB-DEBUG::ARG-1 = :<NOT-AVAILABLE>
SB-DEBUG::ARG-2 = :<NOT-AVAILABLE>
SB-DEBUG::ARG-3 = #<HMAC(SHA1) {F0DD561}>
SB-DEBUG::ARG-4 = :<NOT-AVAILABLE>
1: ((LAMBDA (SB-PCL::|.P0.| SB-PCL::|.P1.| SB-PCL::|.P2.|))
#<unavailable argument> #<unavailable argum..
Locals:
SB-DEBUG::ARG-0 = :<NOT-AVAILABLE>
SB-DEBUG::ARG-1 = :<NOT-AVAILABLE>
SB-DEBUG::ARG-2 = :<NOT-AVAILABLE>
zs3's string-octets uses flexi-streams:string-to-octets
The workaround I'm using for now is instead going to acl-compat's
string-to-octets function from acl-excl.lisp:
(defun string-to-octets (string &key (null-terminate t) (start 0)
end mb-vector make-mb-vector?
(external-format :default))
"This function returns a lisp-usb8-vector and the number of bytes copied."
(declare (ignore external-format))
;; The end parameter is different in ACL's lambda list, but this
;; variant lets us give an argument :end nil explicitly, and the
;; right thing will happen
(unless end (setf end (length string)))
(let* ((number-of-octets (if null-terminate (1+ (- end start))
(- end start)))
(mb-vector (cond
((and mb-vector (>= (length mb-vector) number-of-octets))
mb-vector)
((or (not mb-vector) make-mb-vector?)
(make-array (list number-of-octets)
:element-type '(unsigned-byte 8)
:initial-element 0))
(t (error "Was given a vector of length ~A, ~
but needed at least length ~A."
(length mb-vector) number-of-octets)))))
(declare (type (simple-array (unsigned-byte 8) (*)) mb-vector))
(loop for from-index from start below end
for to-index upfrom 0
do (progn
(setf (aref mb-vector to-index)
(char-code (aref string from-index)))))
(when null-terminate
(setf (aref mb-vector (1- number-of-octets)) 0))
(values mb-vector number-of-octets)))
which seems to work fine.
My best,
Fred Gibson
Founder / Software Developer
http://www.streamfocus.com
(c)2010 Organon Technologies LLC
