[drakma-devel] Clozure CL Page Specific Error

[Wade Humeniuk]

After reading the Hyperspec I do think it is problem with CCL's read-sequence.
I modifed CCL's source from (the code looks obviously in error)

(defmethod stream-read-vector ((stream binary-input-stream)
			       vector start end)
  (declare (fixnum start end))
  (do* ((i start (1+ i)))
       ((= i end) end)
    (declare (fixnum i))
    (let* ((b (read-byte stream))
      (if (eq b :eof)
	(return i)
	(setf (uvref vector i) b)))))

to

(defmethod stream-read-vector ((stream binary-input-stream)
			       vector start end)
  (declare (fixnum start end))
  (do* ((i start (1+ i)))
       ((= i end) end)
    (declare (fixnum i))
    (let* ((b (read-byte stream nil :eof)))
      (if (eq b :eof)
	(return i)
	(setf (uvref vector i) b)))))

and it now works for "https://esqa.moneris.com"

Just for your info Drakma is being used for Moneris credit card purchase
validatons.

Example:

CL-USER> (moneris-test::test-purchase)
(:RECEIPT (:RECEIPTID "ORDER-3422131578-72") (:REFERENCENUM
"660021630017911950") (:RESPONSECODE "027") (:ISO "01") (:AUTHCODE
"337410") (:TRANSTIME "20:06:19") (:TRANSDATE "2008-06-10")
(:TRANSTYPE "00") (:COMPLETE T) (:MESSAGE "APPROVED           *
            =") (:TRANSAMOUNT "10.00") (:CARDTYPE "V") (:TRANSID
"420704-0_7") (:TIMEDOUT NIL) (:BANKTOTALS NIL) (:TICKET NIL))
27
"APPROVED           *                    ="
"420704-0_7"
"<?xml version=\"1.0\"
standalone=\"yes\"?><response><receipt><ReceiptId>ORDER-3422131578-72</ReceiptId><ReferenceNum>660021630017911950</ReferenceNum><ResponseCode>027</ResponseCode><ISO>01</ISO><AuthCode>337410</AuthCode><TransTime>20:06:19</TransTime><TransDate>2008-06-10</TransDate><TransType>00</TransType><Complete>true</Complete><Message>APPROVED
          *
=</Message><TransAmount>10.00</TransAmount><CardType>V</CardType><TransID>420704-0_7</TransID><TimedOut>false</TimedOut><BankTotals>null</BankTotals><Ticket>null</Ticket></receipt></response>"
CL-USER>

I will submit the info to the  ClozureCL devel list.

Thanks, Wade