Can you apply this patch to let usocket be built by XCVB?
[ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org ]
Every technique is first developed, then used, important, obsolete,
normalized, and finally understood.
Index: build.xcvb
===================================================================
--- build.xcvb (revision 0)
+++ build.xcvb (revision 0)
@@ -0,0 +1,9 @@
+#+xcvb
+(module
+ (:fullname "usocket"
+ :depends-on ("package"
+ "usocket"
+ "condition"
+ "backend/sbcl")
+ :build-depends-on ("split-sequence")
+ :supersedes-asdf ("usocket")))
Index: package.lisp
===================================================================
--- package.lisp (revision 500)
+++ package.lisp (working copy)
@@ -3,6 +3,8 @@
;;;; See the LICENSE file for licensing information.
+#+xcvb (module ())
+
#+lispworks (cl:require "comm")
(cl:eval-when (:execute :load-toplevel :compile-toplevel)
Index: usocket.lisp
===================================================================
--- usocket.lisp (revision 500)
+++ usocket.lisp (working copy)
@@ -3,6 +3,8 @@
;;;; See LICENSE for licensing information.
+#+xcvb (module (:depends-on ("package")))
+
(in-package :usocket)
(defparameter *wildcard-host* #(0 0 0 0)
Index: backend/sbcl.lisp
===================================================================
--- backend/sbcl.lisp (revision 500)
+++ backend/sbcl.lisp (working copy)
@@ -3,8 +3,14 @@
;;;; See LICENSE for licensing information.
+#+xcvb (module (:depends-on ("package" "usocket" "condition")))
+
(in-package :usocket)
+#+sbcl
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (require :sb-bsd-sockets))
+
;; There's no way to preload the sockets library other than by requiring it
;;
;; ECL sockets has been forked off sb-bsd-sockets and implements the
Index: condition.lisp
===================================================================
--- condition.lisp (revision 500)
+++ condition.lisp (working copy)
@@ -3,6 +3,8 @@
;;;; See LICENSE for licensing information.
+#+xcvb (module (:depends-on ("package")))
+
(in-package :usocket)
;; Condition signalled by operations with unsupported arguments
_______________________________________________
usocket-devel mailing list
[email protected]
http://common-lisp.net/cgi-bin/mailman/listinfo/usocket-devel
