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"