[pg-cvs] CVS update: pg/sysdep.lisp

[Eric Marsden]

Update of /project/pg/cvsroot/pg
In directory common-lisp.net:/tmp/cvs-serv8352

Modified Files:
	sysdep.lisp 
Log Message:
 - changes for Armed Bear Lisp: change to new API for binary socket
   streams; autoload a working FORMAT


Date: Wed Mar 17 13:13:10 2004
Author: emarsden

Index: pg/sysdep.lisp
diff -u pg/sysdep.lisp:1.3 pg/sysdep.lisp:1.4
--- pg/sysdep.lisp:1.3	Mon Mar  8 13:12:45 2004
+++ pg/sysdep.lisp	Wed Mar 17 13:13:10 2004
@@ -1,7 +1,7 @@
 ;;; sysdep.lisp -- system-dependent parts of pg-dot-lisp
 ;;;
 ;;; Author: Eric Marsden <emarsden at laas.fr>
-;;; Time-stamp: <2004-03-08 emarsden>
+;;; Time-stamp: <2004-03-17 emarsden>
 ;;
 ;;
 
@@ -112,7 +112,7 @@
       (error 'connection-failure :host host :port port))))
 
 
-#+db-sockets
+#+(and db-sockets broken)
 (defun socket-connect (port host)
   (declare (type integer port))
   (handler-case
@@ -264,11 +264,17 @@
   (si::socket port :host host))
 
 
+
+#+armedbear
+(eval-when (:load-toplevel :execute :compile-toplevel)
+  (require 'format))
+
+;; MAKE-SOCKET with :element-type as per 2004-03-09
 #+armedbear
 (defun socket-connect (port host)
   (declare (type integer port))
   (handler-case 
-      (ext:make-binary-socket host port)
+      (ext:make-socket host port :element-type '(unsigned-byte 8))
     (error (e)
       (error 'connection-failure
              :host host