[usocket-cvs] r672 - usocket/branches/0.5.x

[ctian at common-lisp.net]

Author: ctian
Date: Fri Aug 26 22:43:51 2011
New Revision: 672

Log:
[ECL] Fixed for ECL's MAKE-BUILD by removing some unecessary code (reported by Juan Jose Garcia-Ripoll, the ECL maintainer)

Modified:
   usocket/branches/0.5.x/CHANGES
   usocket/branches/0.5.x/package.lisp
   usocket/branches/0.5.x/usocket-test.asd
   usocket/branches/0.5.x/usocket.asd

Modified: usocket/branches/0.5.x/CHANGES
==============================================================================
--- usocket/branches/0.5.x/CHANGES	Tue Aug 16 00:58:22 2011	(r671)
+++ usocket/branches/0.5.x/CHANGES	Fri Aug 26 22:43:51 2011	(r672)
@@ -1,3 +1,7 @@
+0.5.4:
+
+* Bugfix: [ECL] Fixed for ECL's MAKE-BUILD by removing some unecessary code (reported by Juan Jose Garcia-Ripoll, the ECL maintainer)
+
 0.5.3:
 
 * Bugfix: [MCL] Fixed SOCKET-LISTEN on vector addresses like #(0 0 0 0)

Modified: usocket/branches/0.5.x/package.lisp
==============================================================================
--- usocket/branches/0.5.x/package.lisp	Tue Aug 16 00:58:22 2011	(r671)
+++ usocket/branches/0.5.x/package.lisp	Fri Aug 26 22:43:51 2011	(r672)
@@ -3,8 +3,6 @@
 
 ;;;; See the LICENSE file for licensing information.
 
-(in-package :usocket-system)
-
 (defpackage :usocket
   (:use :common-lisp #+abcl :java)
   (:export   #:*wildcard-host*
@@ -86,20 +84,3 @@
              #:insufficient-implementation ; conditions regarding usocket support level
              #:unsupported
              #:unimplemented))
-
-(in-package :usocket)
-
-;;; Logical Pathname Translations, learn from CL-HTTP source code
-
-(eval-when (:load-toplevel :execute)
-  (let* ((defaults #+asdf (asdf:component-pathname (asdf:find-system :usocket))
-                   #-asdf *load-truename*)
-         (home (make-pathname :name :wild :type :wild
-                              :directory (append (pathname-directory defaults)
-                                                 '(:wild-inferiors))
-                              :host (pathname-host defaults)
-                              :defaults defaults
-			      :version :newest)))
-    (setf (logical-pathname-translations "usocket")
-          `(("**;*.*.NEWEST" ,home)
-            ("**;*.*" ,home)))))

Modified: usocket/branches/0.5.x/usocket-test.asd
==============================================================================
--- usocket/branches/0.5.x/usocket-test.asd	Tue Aug 16 00:58:22 2011	(r671)
+++ usocket/branches/0.5.x/usocket-test.asd	Fri Aug 26 22:43:51 2011	(r672)
@@ -4,14 +4,6 @@
 
 ;;;; See the LICENSE file for licensing information.
 
-(in-package :cl-user)
-
-(unless (find-package ':usocket-system)
-  (make-package ':usocket-system
-		:use '(:cl :asdf)))
-
-(in-package :usocket-system)
-
 (defsystem usocket-test
     :name "usocket test"
     :author "Erik Enge"

Modified: usocket/branches/0.5.x/usocket.asd
==============================================================================
--- usocket/branches/0.5.x/usocket.asd	Tue Aug 16 00:58:22 2011	(r671)
+++ usocket/branches/0.5.x/usocket.asd	Fri Aug 26 22:43:51 2011	(r672)
@@ -4,13 +4,6 @@
 
 ;;;; See the LICENSE file for licensing information.
 
-(in-package :cl-user)
-
-(defpackage usocket-system
-    (:use :cl :asdf))
-
-(in-package :usocket-system)
-
 (defsystem usocket
     :name "usocket"
     :author "Erik Enge & Erik Huelsmann"