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@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