[flexi-streams-cvs] r59 - branches/edi

[eweitz at common-lisp.net]

Author: eweitz
Date: Sun May 25 16:45:09 2008
New Revision: 59

Modified:
   branches/edi/decode.lisp
   branches/edi/encode.lisp
Log:
ANSI compliance fix

Tests pass on ClozureCL and AllegroCL now


Modified: branches/edi/decode.lisp
==============================================================================
--- branches/edi/decode.lisp	(original)
+++ branches/edi/decode.lisp	Sun May 25 16:45:09 2008
@@ -1,5 +1,5 @@
 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: FLEXI-STREAMS; Base: 10 -*-
-;;; $Header: /usr/local/cvsrep/flexi-streams/decode.lisp,v 1.25 2008/05/25 20:26:34 edi Exp $
+;;; $Header: /usr/local/cvsrep/flexi-streams/decode.lisp,v 1.26 2008/05/25 20:44:03 edi Exp $
 
 ;;; Copyright (c) 2005-2008, Dr. Edmund Weitz.  All rights reserved.
 
@@ -67,7 +67,7 @@
 
 (defmethod octets-to-string* :around (format (list list) start end)
   (declare #.*standard-optimize-settings*)
-  (call-next-method format (coerce list 'vector) start end))
+  (octets-to-string* format (coerce list 'vector) start end))
 
 (defmacro define-sequence-readers ((format-class) &body body)
   "Non-hygienic utility macro which defines methods for READ-SEQUENCE*

Modified: branches/edi/encode.lisp
==============================================================================
--- branches/edi/encode.lisp	(original)
+++ branches/edi/encode.lisp	Sun May 25 16:45:09 2008
@@ -1,5 +1,5 @@
 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: FLEXI-STREAMS; Base: 10 -*-
-;;; $Header: /usr/local/cvsrep/flexi-streams/encode.lisp,v 1.21 2008/05/25 20:26:34 edi Exp $
+;;; $Header: /usr/local/cvsrep/flexi-streams/encode.lisp,v 1.22 2008/05/25 20:44:03 edi Exp $
 
 ;;; Copyright (c) 2005-2008, Dr. Edmund Weitz.  All rights reserved.
 
@@ -49,7 +49,7 @@
 
 (defmethod string-to-octets* :around (format (list list) start end)
   (declare #.*standard-optimize-settings*)
-  (call-next-method format (coerce list 'string*) start end))
+  (string-to-octets* format (coerce list 'string*) start end))
 
 (defmacro define-sequence-writers ((format-class) &body body)
   "Non-hygienic utility macro which defines methods for