From: <cli...@li...> - 2006-07-01 19:03:50
|
Send clisp-cvs mailing list submissions to cli...@li... To subscribe or unsubscribe via the World Wide Web, visit https://lists.sourceforge.net/lists/listinfo/clisp-cvs or, via email, send a message with subject or body 'help' to cli...@li... You can reach the person managing the list at cli...@li... When replying, please edit your Subject line so it is more specific than "Re: Contents of clisp-cvs digest..." CLISP CVS commits for today Today's Topics: 1. clisp/modules/syscalls syscalls.xml,1.72,1.73 posix.lisp,1.60,1.61 (Sam Steingold) 2. clisp/src ChangeLog,1.5344,1.5345 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Fri, 30 Jun 2006 21:37:41 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/syscalls syscalls.xml,1.72,1.73 posix.lisp,1.60,1.61 To: cli...@li... Message-ID: <E1F...@ma...> Update of /cvsroot/clisp/clisp/modules/syscalls In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv605/modules/syscalls Modified Files: syscalls.xml posix.lisp Log Message: (ffs): added a Lisp implementation of http://www.opengroup.org/onlinepubs/009695399/functions/ffs.html Index: posix.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/posix.lisp,v retrieving revision 1.60 retrieving revision 1.61 diff -u -d -r1.60 -r1.61 --- posix.lisp 23 Jun 2006 19:36:55 -0000 1.60 +++ posix.lisp 30 Jun 2006 21:37:39 -0000 1.61 @@ -13,7 +13,7 @@ #+(or :win32 :cygwin) #:file-properties #+unix #:make-xterm-io-stream #:priority #:process-id #:openlog #:setlogmask #:syslog #:closelog #:getpgid #:setpgrp #:getsid #:setsid #:setpgid #:kill #:sync - #:erf #:erfc #:j0 #:j1 #:jn #:y0 #:y1 #:yn #:gamma #:lgamma)) + #:erf #:erfc #:j0 #:j1 #:jn #:y0 #:y1 #:yn #:gamma #:lgamma #:ffs)) (pushnew :syscalls *features*) (in-package #:posix) @@ -385,6 +385,13 @@ xio)) ;;;-------------------------------------------------------------------------- +(defun ffs (n) (integer-length (logand n (- n)))) +;; http://www.opengroup.org/onlinepubs/009695399/functions/ffs.html +;; this lisp implementation is about 10% faster than using FFI: +;; (ffi:def-call-out ffs (:name "ffs") (:arguments (i ffi:int)) +;; (:return-type ffi:int) (:language :stdc) (:library :default)) +;; and it also supports bignums. +;;;-------------------------------------------------------------------------- (setf (package-lock "EXT") nil) (use-package '("POSIX") "EXT") (without-package-lock ("SYS") (shadow '("VERSION") "SYS")) Index: syscalls.xml =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/syscalls.xml,v retrieving revision 1.72 retrieving revision 1.73 diff -u -d -r1.72 -r1.73 --- syscalls.xml 29 Jun 2006 17:45:21 -0000 1.72 +++ syscalls.xml 30 Jun 2006 21:37:39 -0000 1.73 @@ -626,7 +626,11 @@ (&setq; &error-output-var; (&setq; &debug-io-var; (&mk-xterm-io; :title "clisp errors and debug"))) -</programlisting></para><simpara>&unix-only;</simpara></listitem> -</varlistentry></variablelist> +</programlisting></para><simpara>&unix-only;</simpara></listitem></varlistentry> + <varlistentry><term>(<function>POSIX:FFS</function> &n-r;)</term> + <listitem><simpara>Find the first bit set. + Like <function role="unix">ffs</function>, but implemented in Lisp and + supports &bignum-t;s.</simpara></listitem></varlistentry> +</variablelist> </section> ------------------------------ Message: 2 Date: Fri, 30 Jun 2006 21:37:41 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.5344,1.5345 To: cli...@li... Message-ID: <E1F...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv605/src Modified Files: ChangeLog Log Message: (ffs): added a Lisp implementation of http://www.opengroup.org/onlinepubs/009695399/functions/ffs.html Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5344 retrieving revision 1.5345 diff -u -d -r1.5344 -r1.5345 --- ChangeLog 30 Jun 2006 16:41:04 -0000 1.5344 +++ ChangeLog 30 Jun 2006 21:37:38 -0000 1.5345 @@ -1,5 +1,10 @@ 2006-06-30 Sam Steingold <sd...@po...> + * modules/syscalls/posix.lisp (ffs): added a Lisp implementation of + http://www.opengroup.org/onlinepubs/009695399/functions/ffs.html + +2006-06-30 Sam Steingold <sd...@po...> + * configure, makemake.in: accept --with-gmalloc * configure.in: do not call CL_GMALLOC * m4/gmalloc.m4: removed ------------------------------ Using Tomcat but need to do more? Need to support web services, security? Get stuff done quickly with pre-integrated technology to make your job easier Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642 ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 3, Issue 1 *************************************** |