From: Christophe R. <cr...@us...> - 2003-05-28 11:51:16
|
Update of /cvsroot/sbcl/sbcl/contrib/sb-simple-streams In directory sc8-pr-cvs1:/tmp/cvs-serv505/contrib/sb-simple-streams Modified Files: cl.lisp Log Message: 0.8.0.11: Merge patch from Antonio Martinez (sbcl-devel 2003-05-19 "read-sequence for fundamental-binary-input-streams") ... and WRITE-SEQUENCE, as well. Merge patch from Andreas Fuchs (sbcl-devel 2003-05-20 "(defmethod foo (&key bla &rest blub) t)") ... detect more erroneous specialized lambda lists; ... handle the error in the SOURCE-CONTEXT method for DEFMETHOD, otherwise we can't print the error message we want; ... fix the bogus lambda list in simple-streams and in the test suite; ... include tests for a variety of bogus input. (I would also like to mark the occasion of SBCL's very own millennium bug, as we observe the CVS revision number for version.lisp-expr tick over from 1.999 to 1.1000. "Should auld acquaintance be forgot...") Index: cl.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/contrib/sb-simple-streams/cl.lisp,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- cl.lisp 18 May 2003 15:49:11 -0000 1.2 +++ cl.lisp 28 May 2003 11:51:11 -0000 1.3 @@ -995,7 +995,7 @@ ;;; (defmethod shared-initialize :after ((instance simple-stream) slot-names - &rest initargs &allow-other-keys) + &rest initargs &key &allow-other-keys) (declare (ignore slot-names)) (unless (slot-boundp instance 'melded-stream) (setf (slot-value instance 'melded-stream) instance) |