[19961] trunk/dports/lang/clisp
source_changes at macosforge.org
source_changes at macosforge.org
Fri Oct 6 12:23:12 PDT 2006
Revision: 19961
http://trac.macosforge.org/projects/macports/changeset/19961
Author: gwright at macports.org
Date: 2006-10-06 12:23:12 -0700 (Fri, 06 Oct 2006)
Log Message:
-----------
Version bump to 2.40.
Modified Paths:
--------------
trunk/dports/lang/clisp/Portfile
Added Paths:
-----------
trunk/dports/lang/clisp/files/patch-documentation.lisp
Removed Paths:
-------------
trunk/dports/lang/clisp/files/patch-socket.d
Modified: trunk/dports/lang/clisp/Portfile
===================================================================
--- trunk/dports/lang/clisp/Portfile 2006-10-06 18:38:30 UTC (rev 19960)
+++ trunk/dports/lang/clisp/Portfile 2006-10-06 19:23:12 UTC (rev 19961)
@@ -2,8 +2,7 @@
PortSystem 1.0
name clisp
-version 2.38
-revision 1
+version 2.40
categories lang
maintainers gwright at opendarwin.org
platforms darwin
@@ -27,9 +26,9 @@
port:gettext \
port:libsigsegv
-checksums md5 f23f6015631f7eb31af9dcda5ec195bd
+checksums md5 3115dbdbb89602c2c91f82696214fede
-patchfiles patch-socket.d
+patchfiles patch-documentation.lisp
build.dir ${worksrcpath}/src
@@ -45,11 +44,6 @@
configure.args-append --ignore-absence-of-libsigsegv
}
-platform darwin i386 {
- ui_msg "clisp is not supported on OS X i386 yet"
- exit 1
- }
-
platform darwin 6 {
ui_msg "clisp is not supported on Jaguar (OS X 10.2.x)"
exit 1
Added: trunk/dports/lang/clisp/files/patch-documentation.lisp
===================================================================
--- trunk/dports/lang/clisp/files/patch-documentation.lisp (rev 0)
+++ trunk/dports/lang/clisp/files/patch-documentation.lisp 2006-10-06 19:23:12 UTC (rev 19961)
@@ -0,0 +1,41 @@
+--- src/documentation.lisp.sav 2006-10-06 14:01:54.000000000 -0400
++++ src/documentation.lisp 2006-10-06 14:02:09.000000000 -0400
+@@ -4,7 +4,7 @@
+
+ (in-package "CLOS")
+
+-(defun function-documentation (x)
++(defun function-documentation (x &aux name)
+ (cond ((typep-class x <standard-generic-function>)
+ (std-gf-documentation x))
+ ((eq (type-of x) 'FUNCTION) ; interpreted function?
+@@ -12,8 +12,7 @@
+ #+FFI ((eq (type-of x) 'ffi::foreign-function)
+ (getf (sys::%record-ref x 5) :documentation))
+ ((sys::closurep x) (sys::closure-documentation x))
+- ((let ((name (sys::subr-info x))) ; subr
+- (and name (get :documentation name))))
++ ((setq name (sys::subr-info x)) (get :documentation name)) ; subr
+ (t (get :documentation (sys::%record-ref x 0)))))
+
+ ;;; documentation
+@@ -81,7 +80,7 @@
+ (:method ((x slot-definition) (doc-type (eql 't)))
+ (slot-definition-documentation x)))
+
+-(defun set-function-documentation (x new-value)
++(defun set-function-documentation (x new-value &aux name)
+ (cond ((typep-class x <standard-generic-function>)
+ (setf (std-gf-documentation x) new-value))
+ ((eq (type-of x) 'FUNCTION) ; interpreted function?
+@@ -89,8 +88,8 @@
+ #+FFI ((eq (type-of x) 'ffi::foreign-function)
+ (setf (getf (sys::%record-ref x 5) :documentation) new-value))
+ ((sys::closurep x) (sys::closure-set-documentation x new-value))
+- ((let ((name (sys::subr-info x))) ; subr
+- (and name (setf (get :documentation name) new-value))))
++ ((setq name (sys::subr-info x)) ; subr
++ (setf (get :documentation name) new-value))
+ (t ; fsubr
+ (setf (get :documentation (sys::%record-ref x 0)) new-value))))
+
Deleted: trunk/dports/lang/clisp/files/patch-socket.d
===================================================================
--- trunk/dports/lang/clisp/files/patch-socket.d 2006-10-06 18:38:30 UTC (rev 19960)
+++ trunk/dports/lang/clisp/files/patch-socket.d 2006-10-06 19:23:12 UTC (rev 19961)
@@ -1,102 +0,0 @@
---- src/socket.d.sav 2006-01-06 14:55:36.000000000 -0500
-+++ src/socket.d 2006-01-06 14:56:09.000000000 -0500
-@@ -481,6 +481,9 @@
- #ifdef HAVE_IPV6
- {
- var struct sockaddr_in6 inaddr;
-+#ifdef UNIX_MACOSX
-+ memset((void *)&inaddr, 0, sizeof(inaddr));
-+#endif
- if (inet_pton(AF_INET6,host,&inaddr.sin6_addr) > 0) {
- inaddr.sin6_family = AF_INET6;
- inaddr.sin6_port = htons(port);
-@@ -491,6 +494,9 @@
- #endif
- {
- var struct sockaddr_in inaddr;
-+#ifdef UNIX_MACOSX
-+ memset((void *)&inaddr, 0, sizeof(inaddr));
-+#endif
- if (inet_pton(AF_INET,host,&inaddr.sin_addr) > 0) {
- inaddr.sin_family = AF_INET;
- inaddr.sin_port = htons(port);
-@@ -504,6 +510,9 @@
- if (all_digits_dots(host)) {
- var struct sockaddr_in inaddr;
- var uint32 hostinetaddr = inet_addr(host) INET_ADDR_SUFFIX ;
-+#ifdef UNIX_MACOSX
-+ memset((void *)&inaddr, 0, sizeof(inaddr));
-+#endif
- if (!(hostinetaddr == ((uint32) -1))) {
- inaddr.sin_family = AF_INET;
- inaddr.sin_addr.s_addr = hostinetaddr;
-@@ -523,6 +532,9 @@
- if (host_ptr->h_addrtype == AF_INET6) {
- /* Set up the socket data. */
- var struct sockaddr_in6 inaddr;
-+#ifdef UNIX_MACOSX
-+ memset((void *)&inaddr, 0, sizeof(inaddr));
-+#endif
- inaddr.sin6_family = AF_INET6;
- inaddr.sin6_addr = *(struct in6_addr *)host_ptr->h_addr;
- inaddr.sin6_port = htons(port);
-@@ -533,6 +545,9 @@
- if (host_ptr->h_addrtype == AF_INET) {
- /* Set up the socket data. */
- var struct sockaddr_in inaddr;
-+#ifdef UNIX_MACOSX
-+ memset((void *)&inaddr, 0, sizeof(inaddr));
-+#endif
- inaddr.sin_family = AF_INET;
- inaddr.sin_addr = *(struct in_addr *)host_ptr->h_addr;
- inaddr.sin_port = htons(port);
-@@ -658,6 +673,9 @@
- var int oaddrlen; /* length of addr */
- #endif
-
-+#ifdef UNIX_MACOSX
-+ memset((void *)&unaddr, 0, sizeof(unaddr));
-+#endif
- unaddr.sun_family = AF_UNIX;
- sprintf (unaddr.sun_path, "%s%d", X_UNIX_PATH, display);
- addr = (struct sockaddr *) &unaddr;
-@@ -751,6 +769,9 @@
- host_data_t * hd) {
- var sockaddr_max_t addr;
- var SOCKLEN_T addrlen = sizeof(sockaddr_max_t);
-+#ifdef UNIX_MACOSX
-+ memset((void *)&addr, 0, sizeof(addr));
-+#endif
- if (getsockname(socket_handle,(struct sockaddr *)&addr,&addrlen) < 0)
- return NULL;
- /* Fill in hd->hostname and hd->port. */
-@@ -801,6 +822,9 @@
- var sockaddr_max_t addr;
- var SOCKLEN_T addrlen = sizeof(sockaddr_max_t);
- var struct hostent* hp = NULL;
-+#ifdef UNIX_MACOSX
-+ memset((void *)&addr, 0, sizeof(addr));
-+#endif
- /* Get host's IP address. */
- if (getpeername(socket_handle,(struct sockaddr *)&addr,&addrlen) < 0)
- return NULL;
-@@ -896,6 +920,9 @@
- var SOCKET fd;
- var sockaddr_max_t addr;
- var SOCKLEN_T addrlen = sizeof(sockaddr_max_t);
-+#ifdef UNIX_MACOSX
-+ memset((void *)&addr, 0, sizeof(addr));
-+#endif
- if (getsockname(sock,(struct sockaddr *)&addr,&addrlen) < 0)
- return INVALID_SOCKET;
- switch (((struct sockaddr *)&addr)->sa_family) {
-@@ -931,6 +958,9 @@
- #endif
- var sockaddr_max_t addr;
- var SOCKLEN_T addrlen = sizeof(sockaddr_max_t);
-+#ifdef UNIX_MACOSX
-+ memset((void *)&addr, 0, sizeof(addr));
-+#endif
- return accept(socket_handle,(struct sockaddr *)&addr,&addrlen);
- /* We can ignore the contents of addr, because we can retrieve it again
- through socket_getpeername() later. */
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20061006/b684b504/attachment.html
More information about the macports-changes
mailing list