LispWorks port (thanks to Edi Weitz)

2005-04-20 19:57:59 +00:00
parent 475ee0db12
commit c7610a4a3a
8 changed files with 256 additions and 117 deletions
--- a/xml/xml-parse.lisp
+++ b/xml/xml-parse.lisp
@ -3004,8 +3004,10 @@
            (elt octets pos)
          (incf pos)))))

-(defmethod stream-read-sequence ((stream octet-input-stream) sequence
-                                 &optional (start 0) (end (length sequence)))
+(defmethod stream-read-sequence
+    #-lispworks ((stream octet-input-stream) sequence
+                 &optional (start 0) (end (length sequence)))
+    #+lispworks ((stream octet-input-stream) sequence start end)
  (with-slots (octets pos) stream
    (let* ((length (min (- end start) (- (length octets) pos)))
           (end1 (+ start length))