From avodonosov at common-lisp.net  Mon Oct  5 00:46:22 2009
From: avodonosov at common-lisp.net (avodonosov)
Date: Sun, 04 Oct 2009 20:46:22 -0400
Subject: [cl-plus-ssl-cvs] CVS trivial-gray-streams
Message-ID: <E1MubiY-0000EI-6Y@common-lisp.net>

Update of /project/cl-plus-ssl/cvsroot/trivial-gray-streams
In directory cl-net:/tmp/cvs-serv881

Modified Files:
	mixin.lisp 
Log Message:
SBCL file-position support

--- /project/cl-plus-ssl/cvsroot/trivial-gray-streams/mixin.lisp	2008/11/01 03:13:22	1.7
+++ /project/cl-plus-ssl/cvsroot/trivial-gray-streams/mixin.lisp	2009/10/05 00:46:21	1.8
@@ -131,7 +131,7 @@
 
   (defmethod gray:stream-position ((stream trivial-gray-stream-mixin) position)
     (if position
-	(setf (stream-file-position stream) position)
+        (setf (stream-file-position stream) position)
         (stream-file-position stream))))
 
 #+sbcl
@@ -142,6 +142,11 @@
   (defmethod sb-gray:stream-write-sequence
       ((s trivial-gray-stream-mixin) seq &optional start end)
     (stream-write-sequence s seq (or start 0) (or end (length seq))))
+  (defmethod sb-gray:stream-file-position 
+      ((stream trivial-gray-stream-mixin) &optional position)
+    (if position
+        (setf (stream-file-position stream) position)
+        (stream-file-position stream)))
   ;; SBCL extension:
   (defmethod sb-gray:stream-line-length ((stream trivial-gray-stream-mixin))
     80))
@@ -150,7 +155,9 @@
 (progn
   (defmethod gray:stream-read-sequence
     ((s trivial-gray-stream-mixin) seq &optional start end)
+    (format t "trivial-read~%")
     (stream-read-sequence s seq (or start 0) (or end (length seq))))
   (defmethod gray:stream-write-sequence
     ((s trivial-gray-stream-mixin) seq &optional start end)
+    (format t "trivial-write~%")
     (stream-write-sequence s seq (or start 0) (or end (length seq)))))




From avodonosov at common-lisp.net  Mon Oct  5 00:46:58 2009
From: avodonosov at common-lisp.net (avodonosov)
Date: Sun, 04 Oct 2009 20:46:58 -0400
Subject: [cl-plus-ssl-cvs] CVS trivial-gray-streams
Message-ID: <E1Mubj8-0000FK-2D@common-lisp.net>

Update of /project/cl-plus-ssl/cvsroot/trivial-gray-streams
In directory cl-net:/tmp/cvs-serv947

Modified Files:
	README 
Log Message:
SBCL file-position support

--- /project/cl-plus-ssl/cvsroot/trivial-gray-streams/README	2006/09/14 17:45:36	1.3
+++ /project/cl-plus-ssl/cvsroot/trivial-gray-streams/README	2009/10/05 00:46:57	1.4
@@ -29,9 +29,9 @@
 Generic function STREAM-READ-SEQUENCE (stream sequence start end &key)
 Generic function STREAM-WRITE-SEQUENCE (stream sequence start end &key)
 
-	See above.
+        See above.
 
 Generic function STREAM-FILE-POSITION (stream) => file position
 Generic function (SETF STREAM-FILE-POSITION) (position-spec stream) => successp
 
-	Will only be called by LispWorks and CLISP.
+        Will only be called by LispWorks, CLISP and SBCL.




From hans.huebner at gmail.com  Mon Oct  5 08:16:56 2009
From: hans.huebner at gmail.com (=?ISO-8859-1?Q?Hans_H=FCbner?=)
Date: Mon, 5 Oct 2009 10:16:56 +0200
Subject: [cl-plus-ssl-cvs] CVS trivial-gray-streams
In-Reply-To: <E1MubiY-0000EI-6Y@common-lisp.net>
References: <E1MubiY-0000EI-6Y@common-lisp.net>
Message-ID: <fd2982320910050116i1c806a92pce9048fa79579fba@mail.gmail.com>

Glancing at the patch, I see some new format invocations.  Is that
what you wanted to commit?

-Hans

On Mon, Oct 5, 2009 at 02:46, avodonosov <avodonosov at common-lisp.net> wrote:
> Update of /project/cl-plus-ssl/cvsroot/trivial-gray-streams
> In directory cl-net:/tmp/cvs-serv881
>
> Modified Files:
> ? ? ? ?mixin.lisp
> Log Message:
> SBCL file-position support
>
> --- /project/cl-plus-ssl/cvsroot/trivial-gray-streams/mixin.lisp ? ? ? ?2008/11/01 03:13:22 ? ? 1.7
> +++ /project/cl-plus-ssl/cvsroot/trivial-gray-streams/mixin.lisp ? ? ? ?2009/10/05 00:46:21 ? ? 1.8
> @@ -131,7 +131,7 @@
>
> ? (defmethod gray:stream-position ((stream trivial-gray-stream-mixin) position)
> ? ? (if position
> - ? ? ? (setf (stream-file-position stream) position)
> + ? ? ? ?(setf (stream-file-position stream) position)
> ? ? ? ? (stream-file-position stream))))
>
> ?#+sbcl
> @@ -142,6 +142,11 @@
> ? (defmethod sb-gray:stream-write-sequence
> ? ? ? ((s trivial-gray-stream-mixin) seq &optional start end)
> ? ? (stream-write-sequence s seq (or start 0) (or end (length seq))))
> + ?(defmethod sb-gray:stream-file-position
> + ? ? ?((stream trivial-gray-stream-mixin) &optional position)
> + ? ?(if position
> + ? ? ? ?(setf (stream-file-position stream) position)
> + ? ? ? ?(stream-file-position stream)))
> ? ;; SBCL extension:
> ? (defmethod sb-gray:stream-line-length ((stream trivial-gray-stream-mixin))
> ? ? 80))
> @@ -150,7 +155,9 @@
> ?(progn
> ? (defmethod gray:stream-read-sequence
> ? ? ((s trivial-gray-stream-mixin) seq &optional start end)
> + ? ?(format t "trivial-read~%")
> ? ? (stream-read-sequence s seq (or start 0) (or end (length seq))))
> ? (defmethod gray:stream-write-sequence
> ? ? ((s trivial-gray-stream-mixin) seq &optional start end)
> + ? ?(format t "trivial-write~%")
> ? ? (stream-write-sequence s seq (or start 0) (or end (length seq)))))
>
>
> _______________________________________________
> cl-plus-ssl-cvs mailing list
> cl-plus-ssl-cvs at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/cl-plus-ssl-cvs
>



From avodonosov at common-lisp.net  Tue Oct  6 22:15:30 2009
From: avodonosov at common-lisp.net (avodonosov)
Date: Tue, 06 Oct 2009 18:15:30 -0400
Subject: [cl-plus-ssl-cvs] CVS trivial-gray-streams
Message-ID: <E1MvIJe-0005L9-ML@common-lisp.net>

Update of /project/cl-plus-ssl/cvsroot/trivial-gray-streams
In directory cl-net:/tmp/cvs-serv20528

Modified Files:
	mixin.lisp 
Log Message:
remove mistakenly commited FORMAT invocations

--- /project/cl-plus-ssl/cvsroot/trivial-gray-streams/mixin.lisp	2009/10/05 00:46:21	1.8
+++ /project/cl-plus-ssl/cvsroot/trivial-gray-streams/mixin.lisp	2009/10/06 22:15:30	1.9
@@ -155,9 +155,7 @@
 (progn
   (defmethod gray:stream-read-sequence
     ((s trivial-gray-stream-mixin) seq &optional start end)
-    (format t "trivial-read~%")
     (stream-read-sequence s seq (or start 0) (or end (length seq))))
   (defmethod gray:stream-write-sequence
     ((s trivial-gray-stream-mixin) seq &optional start end)
-    (format t "trivial-write~%")
     (stream-write-sequence s seq (or start 0) (or end (length seq)))))




From avodonosov at common-lisp.net  Sat Oct 24 20:09:40 2009
From: avodonosov at common-lisp.net (avodonosov)
Date: Sat, 24 Oct 2009 16:09:40 -0400
Subject: [cl-plus-ssl-cvs] CVS cl+ssl
Message-ID: <E1N1mvk-0003Au-AR@common-lisp.net>

Update of /project/cl-plus-ssl/cvsroot/cl+ssl
In directory cl-net:/tmp/cvs-serv12205

Modified Files:
	bio.lisp conditions.lisp ffi-buffer-all.lisp 
	ffi-buffer-clisp.lisp ffi-buffer.lisp ffi.lisp package.lisp 
	reload.lisp streams.lisp 
Added Files:
	build.xcvb 
Log Message:
XCVB support (by Fare <fahree at gmail.com>)

--- /project/cl-plus-ssl/cvsroot/cl+ssl/bio.lisp	2005/12/13 21:16:30	1.3
+++ /project/cl-plus-ssl/cvsroot/cl+ssl/bio.lisp	2009/10/24 20:09:40	1.4
@@ -2,6 +2,8 @@
 ;;;
 ;;; See LICENSE for details.
 
+#+xcvb (module (:depends-on ("package")))
+
 (in-package cl+ssl)
 
 (defconstant +bio-type-socket+ (logior 5 #x0400 #x0100))
--- /project/cl-plus-ssl/cvsroot/cl+ssl/conditions.lisp	2008/04/17 19:41:08	1.3
+++ /project/cl-plus-ssl/cvsroot/cl+ssl/conditions.lisp	2009/10/24 20:09:40	1.4
@@ -4,6 +4,8 @@
 ;;;
 ;;; See LICENSE for details.
 
+#+xcvb (module (:depends-on ("package")))
+
 (in-package :cl+ssl)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
--- /project/cl-plus-ssl/cvsroot/cl+ssl/ffi-buffer-all.lisp	2007/07/07 15:25:09	1.1
+++ /project/cl-plus-ssl/cvsroot/cl+ssl/ffi-buffer-all.lisp	2009/10/24 20:09:40	1.2
@@ -1,3 +1,5 @@
+#+xcvb (module (:depends-on ("package")))
+
 (in-package :cl+ssl)
 
 (defconstant +initial-buffer-size+ 2048)
--- /project/cl-plus-ssl/cvsroot/cl+ssl/ffi-buffer-clisp.lisp	2008/11/01 05:02:01	1.2
+++ /project/cl-plus-ssl/cvsroot/cl+ssl/ffi-buffer-clisp.lisp	2009/10/24 20:09:40	1.3
@@ -1,3 +1,5 @@
+#+xcvb (module (:depends-on ("package" "reload" "conditions" "ffi" "ffi-buffer-all")))
+
 (in-package :cl+ssl)
 
 (defun make-buffer (size)
--- /project/cl-plus-ssl/cvsroot/cl+ssl/ffi-buffer.lisp	2007/07/07 15:25:09	1.1
+++ /project/cl-plus-ssl/cvsroot/cl+ssl/ffi-buffer.lisp	2009/10/24 20:09:40	1.2
@@ -1,3 +1,5 @@
+#+xcvb (module (:depends-on ("package")))
+
 (in-package :cl+ssl)
 
 (defun make-buffer (size)
--- /project/cl-plus-ssl/cvsroot/cl+ssl/ffi.lisp	2008/11/04 00:25:52	1.12
+++ /project/cl-plus-ssl/cvsroot/cl+ssl/ffi.lisp	2009/10/24 20:09:40	1.13
@@ -4,6 +4,8 @@
 ;;;
 ;;; See LICENSE for details.
 
+#+xcvb (module (:depends-on ("package" "conditions")))
+
 (eval-when (:compile-toplevel)
   (declaim
    (optimize (speed 3) (space 1) (safety 1) (debug 0) (compilation-speed 0))))
--- /project/cl-plus-ssl/cvsroot/cl+ssl/package.lisp	2008/11/03 17:58:45	1.5
+++ /project/cl-plus-ssl/cvsroot/cl+ssl/package.lisp	2009/10/24 20:09:40	1.6
@@ -4,6 +4,8 @@
 ;;;
 ;;; See LICENSE for details.
 
+#+xcvb (module (:depends-on ((:when (:featurep :sbcl) (:require :sb-posix)))))
+
 (in-package :cl-user)
 
 (defpackage :cl+ssl
--- /project/cl-plus-ssl/cvsroot/cl+ssl/reload.lisp	2009/09/16 21:30:29	1.6
+++ /project/cl-plus-ssl/cvsroot/cl+ssl/reload.lisp	2009/10/24 20:09:40	1.7
@@ -13,6 +13,8 @@
 ;;;   - but not every time ffi.lisp is re-loaded as would happen if we
 ;;;     put this directly into ffi.lisp
 
+#+xcvb (module (:depends-on ("package")))
+
 (in-package :cl+ssl)
 
 (cffi:define-foreign-library libssl
--- /project/cl-plus-ssl/cvsroot/cl+ssl/streams.lisp	2009/04/09 06:01:44	1.17
+++ /project/cl-plus-ssl/cvsroot/cl+ssl/streams.lisp	2009/10/24 20:09:40	1.18
@@ -5,6 +5,12 @@
 ;;;
 ;;; See LICENSE for details.
 
+#+xcvb
+(module
+ (:depends-on ("package" "conditions" "ffi"
+                         (:cond ((:featurep :clisp) "ffi-buffer-clisp")
+                                (t "ffi-buffer")))))
+
 (eval-when (:compile-toplevel)
   (declaim
    (optimize (speed 3) (space 1) (safety 1) (debug 0) (compilation-speed 0))))

--- /project/cl-plus-ssl/cvsroot/cl+ssl/build.xcvb	2009/10/24 20:09:40	NONE
+++ /project/cl-plus-ssl/cvsroot/cl+ssl/build.xcvb	2009/10/24 20:09:40	1.1
;;; -*- mode: lisp -*-
;;;
;;; Copyright (C) 2001, 2003  Eric Marsden
;;; Copyright (C) 2005  David Lichteblau
;;; Copyright (C) 2007  Pixel // pinterface
;;; "the conditions and ENSURE-SSL-FUNCALL are by Jochen Schmidt."
;;;
;;; See LICENSE for details.


#+xcvb
(module
 (:fullname "cl+ssl"
  :depends-on ("package"
	       "reload"
	       "conditions"
	       "ffi"
	       "ffi-buffer-all"
	       (:cond ((:featurep :clisp) "ffi-buffer-clisp")
                      ((:featurep (:not :clisp)) "ffi-buffer"))
	       "streams"
	       "bio")
  :build-depends-on ("flexi-streams" "trivial-gray-streams" "cffi")
  :supersedes-asdf ("cl+ssl")))




From avodonosov at common-lisp.net  Sat Oct 24 20:13:39 2009
From: avodonosov at common-lisp.net (avodonosov)
Date: Sat, 24 Oct 2009 16:13:39 -0400
Subject: [cl-plus-ssl-cvs] CVS trivial-gray-streams
Message-ID: <E1N1mzb-0003EM-8M@common-lisp.net>

Update of /project/cl-plus-ssl/cvsroot/trivial-gray-streams
In directory cl-net:/tmp/cvs-serv12419

Modified Files:
	mixin.lisp package.lisp 
Added Files:
	build.xcvb 
Log Message:
XCVB support (by Fare <fahree at gmail.com>)

--- /project/cl-plus-ssl/cvsroot/trivial-gray-streams/mixin.lisp	2009/10/06 22:15:30	1.9
+++ /project/cl-plus-ssl/cvsroot/trivial-gray-streams/mixin.lisp	2009/10/24 20:13:39	1.10
@@ -1,3 +1,5 @@
+#+xcvb (module (:depends-on ("package")))
+
 (in-package :trivial-gray-streams)
 
 (defclass trivial-gray-stream-mixin () ())
--- /project/cl-plus-ssl/cvsroot/trivial-gray-streams/package.lisp	2008/09/10 16:36:29	1.5
+++ /project/cl-plus-ssl/cvsroot/trivial-gray-streams/package.lisp	2009/10/24 20:13:39	1.6
@@ -1,4 +1,6 @@
-(in-package :trivial-gray-streams-system)
+#+xcvb (module ())
+
+(in-package :cl-user)
 
 #+cmu
 (eval-when (:compile-toplevel :load-toplevel :execute)

--- /project/cl-plus-ssl/cvsroot/trivial-gray-streams/build.xcvb	2009/10/24 20:13:39	NONE
+++ /project/cl-plus-ssl/cvsroot/trivial-gray-streams/build.xcvb	2009/10/24 20:13:39	1.1
#+xcvb
(module
  (:fullname "trivial-gray-streams"
   :depends-on
    ("package"
     "mixin")
   :supersedes-asdf ("trivial-gray-streams")))