From: <cli...@li...> - 2006-10-13 06:16:32
|
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/src ChangeLog,1.5424,1.5425 (Sam Steingold) 2. clisp/src foreign1.lisp,1.105,1.106 (Sam Steingold) 3. clisp/doc impext.xml,1.465,1.466 impent.xml,1.276,1.277 (Sam Steingold) 4. clisp/modules/libsvm libsvm.lisp,1.7,1.8 (Sam Steingold) 5. clisp/src init.lisp, 1.254, 1.255 foreign1.lisp, 1.106, 1.107 compiler.lisp, 1.295, 1.296 NEWS, 1.348, 1.349 HISTORY, 1.22, 1.23 ChangeLog, 1.5425, 1.5426 (Sam Steingold) 6. clisp/src foreign1.lisp,1.107,1.108 (Sam Steingold) 7. clisp/src ChangeLog,1.5426,1.5427 (Sam Steingold) 8. clisp/doc impnotes.html,1.50,1.51 _clisp.html,1.22,1.23 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Fri, 13 Oct 2006 05:18:09 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.5424,1.5425 To: cli...@li... Message-ID: <E1G...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv389/src Modified Files: ChangeLog=20 Log Message: (fullinfo_firsttable): avoid a gcc warning Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5424 retrieving revision 1.5425 diff -u -d -r1.5424 -r1.5425 --- ChangeLog 13 Oct 2006 05:16:04 -0000 1.5424 +++ ChangeLog 13 Oct 2006 05:18:07 -0000 1.5425 @@ -1,5 +1,9 @@ 2006-10-13 Sam Steingold <sd...@gn...> =20 + * modules/pcre/cpcre.c (fullinfo_firsttable): avoid a gcc warning + +2006-10-13 Sam Steingold <sd...@gn...> + * foreign1.lisp (DEF-C-VAR, DEF-CALL-OUT): call NOTE-C-VAR and NOTE-C-FUN depending on the value of library at run time, not macroexpansion time ------------------------------ Message: 2 Date: Fri, 13 Oct 2006 05:22:35 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src foreign1.lisp,1.105,1.106 To: cli...@li... Message-ID: <E1G...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv1997/src Modified Files: foreign1.lisp=20 Log Message: (DEF-C-VAR, DEF-CALL-OUT): check library inside eval-when Index: foreign1.lisp =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/clisp/clisp/src/foreign1.lisp,v retrieving revision 1.105 retrieving revision 1.106 diff -u -d -r1.105 -r1.106 --- foreign1.lisp 13 Oct 2006 05:16:04 -0000 1.105 +++ foreign1.lisp 13 Oct 2006 05:22:33 -0000 1.106 @@ -925,8 +925,8 @@ (DEFSETF ,getter-function-name ,setter-function-name) (DEFINE-SYMBOL-MACRO ,name (,getter-function-name)) |# - (unless ,library - (EVAL-WHEN (COMPILE) (NOTE-C-VAR ',c-name ',type ',flags))) + (EVAL-WHEN (COMPILE) + (UNLESS ,LIBRARY (NOTE-C-VAR ',c-name ',type ',flags))) (when ,def (SYSTEM::%PUT ',name 'FOREIGN-VARIABLE ,def) ,@(when doc `((SETF (DOCUMENTATION ',name 'VARIABLE) ',(second = doc)))) @@ -1042,8 +1042,8 @@ `(LET ((,def (FIND-FOREIGN-FUNCTION ',c-name ,ctype ',properties ,library NIL))) (EXT:COMPILER-LET ((,def ,ctype)) - (unless ,library - (EVAL-WHEN (COMPILE) (NOTE-C-FUN ',c-name ,def ',built-in))) + (EVAL-WHEN (COMPILE) + (UNLESS ,LIBRARY (NOTE-C-FUN ',c-name ,def ',built-in))) (COMPILER::EVAL-WHEN-COMPILE (COMPILER::C-DEFUN ',name (C-TYPE-TO-SIGNATURE ,ctype)))) (WHEN ,def ; found library function ------------------------------ Message: 3 Date: Fri, 13 Oct 2006 05:47:14 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/doc impext.xml,1.465,1.466 impent.xml,1.276,1.277 To: cli...@li... Message-ID: <E1G...@ma...> Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv10947/doc Modified Files: impext.xml impent.xml=20 Log Message: replaced FFI::*DEFAULT-FOREIGN-LIBRARY* with FFI::*FOREIGN-LIBRARY* (DEFAULT-FOREIGN-LIBRARY): set FFI::*FOREIGN-LIBRARY* inside EVAL-WHEN Index: impext.xml =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/clisp/clisp/doc/impext.xml,v retrieving revision 1.465 retrieving revision 1.466 diff -u -d -r1.465 -r1.466 --- impext.xml 13 Oct 2006 03:11:23 -0000 1.465 +++ impext.xml 13 Oct 2006 05:47:12 -0000 1.466 @@ -2624,7 +2624,7 @@ deprecated.</simpara></listitem></varlistentry> <varlistentry><term><code>(&library-k; &name-r;)</code></term> <listitem><simpara>Specifies the (optional) dynamic library - which contains the variable, the default is the value of the variable + which contains the variable, the default is set by &default-foreign-library;.</simpara></listitem></varlistentry> <varlistentry><term><code>(&documentation-k; &string-r;)</code></term> <listitem><simpara>Specifies the (optional) &variable-doc; documentatio= n. @@ -2677,7 +2677,7 @@ </simpara></listitem></varlistentry> <varlistentry><term><code>(&library-k; &name-r;)</code></term> <listitem><simpara>Specifies the (optional) dynamic library - which contains the function, the default is the value of the variable + which contains the function, the default is set by &default-foreign-library;</simpara></listitem></varlistentry> <varlistentry><term><code>(&documentation-k; &string-r;)</code></term> <listitem><simpara>Specifies the (optional) &function-doc; documentatio= n. @@ -2714,17 +2714,18 @@ library &name-r;, it will be re-opened automatically. </simpara></listitem></varlistentry> =20 -<varlistentry id=3D"dffi-default-lib"><term>&default-foreign-library;</t= erm> - <listitem><simpara>This is the default &library-k; argument for - &def-call-out; and &def-c-var;. This variable should be &nil; +<varlistentry id=3D"dffi-default-lib"><term><code>(&default-foreign-libr= ary; + &lib-name;)</code></term> + <listitem><simpara>This macro sets the default &library-k; argument for + &def-call-out; and &def-c-var;. &lib-name; should be &nil; (meaning use the &c-lang; file produced by &compile-file-my;), a &string-t;, or, depending on the underlying <function role=3D"unix">dlsym</function> implementation, &default-k; or <constant>:NEXT</constant>.</simpara> - <simpara>This variable is bound in each &comp-unit;, so, if you are - interfacing to a single library, you can set this variable in the - beginning of your lisp file and omit the &library-k; - argument throughout the file.</simpara></listitem></varlistentry> + <simpara>The default is set separately in each &comp-unit;, so, if you + are interfacing to a single library, you can set this variable in the + beginning of your lisp file and omit the &library-k; argument + throughout the file.</simpara></listitem></varlistentry> =20 <varlistentry id=3D"def-c-struct"><term><code>(&def-c-struct; &name-r; (&symbol-r; &ctype-r;)*)</code></term> Index: impent.xml =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/clisp/clisp/doc/impent.xml,v retrieving revision 1.276 retrieving revision 1.277 diff -u -d -r1.276 -r1.277 --- impent.xml 13 Oct 2006 03:11:23 -0000 1.276 +++ impent.xml 13 Oct 2006 05:47:12 -0000 1.277 @@ -517,7 +517,7 @@ <!ENTITY foreign-variable '<link linkend=3D"dffi-make-var"><function>FFI= :FOREIGN-VARIABLE</function></link>'> <!ENTITY foreign-variable-t '<link linkend=3D"dffi-variables"><classname= >FFI:FOREIGN-VARIABLE</classname></link>'> <!ENTITY close-foreign-library '<link linkend=3D"dffi-close-lib"><functi= on>FFI:CLOSE-FOREIGN-LIBRARY</function></link>'> -<!ENTITY default-foreign-library '<link linkend=3D"dffi-default-lib"><va= rname>FFI:*DEFAULT-FOREIGN-LIBRARY*</varname></link>'> +<!ENTITY default-foreign-library '<link linkend=3D"dffi-default-lib"><fu= nction>FFI:DEFAULT-FOREIGN-LIBRARY</function></link>'> <!ENTITY linkset '<olink targetdoc=3D"impnotes" targetptr=3D"linkset">li= nking set</olink>'> <!ENTITY link-sh '<olink targetdoc=3D"impnotes" targetptr=3D"modset"><co= mmand>link.sh</command></olink>'> <!ENTITY modset '<olink targetdoc=3D"impnotes" targetptr=3D"modset">modu= le set</olink>'> ------------------------------ Message: 4 Date: Fri, 13 Oct 2006 05:47:14 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/libsvm libsvm.lisp,1.7,1.8 To: cli...@li... Message-ID: <E1G...@ma...> Update of /cvsroot/clisp/clisp/modules/libsvm In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv10947/modules/libsv= m Modified Files: libsvm.lisp=20 Log Message: replaced FFI::*DEFAULT-FOREIGN-LIBRARY* with FFI::*FOREIGN-LIBRARY* (DEFAULT-FOREIGN-LIBRARY): set FFI::*FOREIGN-LIBRARY* inside EVAL-WHEN Index: libsvm.lisp =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/clisp/clisp/modules/libsvm/libsvm.lisp,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- libsvm.lisp 13 Oct 2006 03:11:23 -0000 1.7 +++ libsvm.lisp 13 Oct 2006 05:47:12 -0000 1.8 @@ -13,8 +13,7 @@ (setf (documentation (find-package "LIBSVM") 'sys::impnotes) "libsvm") =20 (default-foreign-language :stdc) -(setq *default-foreign-library* - (namestring (merge-pathnames "svm.so" *load-pathname*))) +(default-foreign-library (namestring (merge-pathnames "svm.so" *load-pat= hname*))) =20 ;;; ;;; types and constants ------------------------------ Message: 5 Date: Fri, 13 Oct 2006 05:47:14 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src init.lisp, 1.254, 1.255 foreign1.lisp, 1.106, 1.107 compiler.lisp, 1.295, 1.296 NEWS, 1.348, 1.349 HISTORY, 1.22, 1.23 ChangeLog, 1.5425, 1.5426 To: cli...@li... Message-ID: <E1G...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv10947/src Modified Files: init.lisp foreign1.lisp compiler.lisp NEWS HISTORY ChangeLog=20 Log Message: replaced FFI::*DEFAULT-FOREIGN-LIBRARY* with FFI::*FOREIGN-LIBRARY* (DEFAULT-FOREIGN-LIBRARY): set FFI::*FOREIGN-LIBRARY* inside EVAL-WHEN Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5425 retrieving revision 1.5426 diff -u -d -r1.5425 -r1.5426 --- ChangeLog 13 Oct 2006 05:18:07 -0000 1.5425 +++ ChangeLog 13 Oct 2006 05:47:11 -0000 1.5426 @@ -1,5 +1,12 @@ 2006-10-13 Sam Steingold <sd...@gn...> =20 + * init.lisp, compiler.lisp: replaced + FFI::*DEFAULT-FOREIGN-LIBRARY* with FFI::*FOREIGN-LIBRARY* + * foreign1.lisp (DEFAULT-FOREIGN-LIBRARY): new macro, set + FFI::*FOREIGN-LIBRARY* inside EVAL-WHEN + +2006-10-13 Sam Steingold <sd...@gn...> + * modules/pcre/cpcre.c (fullinfo_firsttable): avoid a gcc warning =20 2006-10-13 Sam Steingold <sd...@gn...> Index: foreign1.lisp =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/clisp/clisp/src/foreign1.lisp,v retrieving revision 1.106 retrieving revision 1.107 diff -u -d -r1.106 -r1.107 --- foreign1.lisp 13 Oct 2006 05:22:33 -0000 1.106 +++ foreign1.lisp 13 Oct 2006 05:47:10 -0000 1.107 @@ -17,7 +17,7 @@ c-lines *output-c-functions* *output-c-variables* *foreign-gua= rd* nil boolean character char uchar short ushort int uint long ul= ong uint8 sint8 uint16 sint16 uint32 sint32 uint64 sint64 - single-float double-float *default-foreign-library* + single-float double-float default-foreign-library c-pointer c-string c-struct c-union c-array c-array-max c-function c-ptr c-ptr-null c-array-ptr def-c-enum def-c-struct element deref slot cast typeof @@ -354,7 +354,11 @@ (without-package-lock ("FFI") (setq *foreign-language* ',lang)))) =20 ;; the default foreign library for this compilation unit -(defvar *default-foreign-library* nil) +(defvar *foreign-library* nil) ; ABI + +(defmacro default-foreign-library (library) + `(eval-when (load compile eval) + (without-package-lock ("FFI") (setq *foreign-library* ',library)))) =20 ;; get the even (start=3D0) or odd (start=3D1) elements of the simple ve= ctor (defun split-c-fun-arglist (args start) @@ -906,7 +910,7 @@ (:NONE 0) (:MALLOC-FREE fv-flag-malloc-free)) 0)))) - (library (get-assoc :library alist '*default-foreign-library*)) + (library (get-assoc :library alist '*foreign-library*)) #| (getter-function-name (sys::symbol-suffix name "%GETTER%")) (setter-function-name (sys::symbol-suffix name "%SETTER%")) @@ -1033,7 +1037,7 @@ 'space (and (boundp 'system::*denv*) system::*denv*))) (assoc ':documentation alist))) - (library (get-assoc :library alist '*default-foreign-library*)) + (library (get-assoc :library alist '*foreign-library*)) (c-name (foreign-name name (assoc :name alist))) (built-in (second (assoc :built-in alist))) ;; Maximize sharing in .fas file, reuse options Index: compiler.lisp =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/clisp/clisp/src/compiler.lisp,v retrieving revision 1.295 retrieving revision 1.296 diff -u -d -r1.295 -r1.296 --- compiler.lisp 13 Oct 2006 03:12:12 -0000 1.295 +++ compiler.lisp 13 Oct 2006 05:47:10 -0000 1.296 @@ -11079,7 +11079,7 @@ (defmacro with-compilation-unit ((&key override) &body forms) `(let ((*c-top-call* (or ,override (not (boundp '*c-top-call*)))) #+ffi (ffi::*foreign-language* ffi::*foreign-language*) - #+ffi (ffi::*default-foreign-library* ffi::*default-foreign-lib= rary*) + #+ffi (ffi::*foreign-library* ffi::*foreign-library*) (*c-listing-output* nil) (*c-error-output* *error-output*)) ;; clean up from the outer `with-compilation-unit': Index: NEWS =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/clisp/clisp/src/NEWS,v retrieving revision 1.348 retrieving revision 1.349 diff -u -d -r1.348 -r1.349 --- NEWS 13 Oct 2006 04:14:50 -0000 1.348 +++ NEWS 13 Oct 2006 05:47:11 -0000 1.349 @@ -11,8 +11,8 @@ * The same internal interface now handles FFI forms DEF-CALL-OUT and DEF-C-VAR regardless of the presence of the :LIBRARY argument. (:LIBRARY NIL) is now identical to omitting the :LIBRARY argument. - The default for the :LIBRARY argument is provided by - FFI:*DEFAULT-FOREIGN-LIBRARY* (bound in a compilation unit). + The default for the :LIBRARY argument is set by + FFI:DEFAULT-FOREIGN-LIBRARY per compilation unit. See <http://clisp.cons.org/impnotes/dffi.html#dffi-default-lib> for de= tails. =20 * Bug fixes: Index: init.lisp =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/clisp/clisp/src/init.lisp,v retrieving revision 1.254 retrieving revision 1.255 diff -u -d -r1.254 -r1.255 --- init.lisp 13 Oct 2006 03:11:22 -0000 1.254 +++ init.lisp 13 Oct 2006 05:47:10 -0000 1.255 @@ -1487,8 +1487,8 @@ (proclaim '(special ffi::*foreign-language*)) #+ffi (setq ffi::*foreign-language* nil) #+ffi ; default :LIBRARY argument for DEF-CALL-OUT and DEF-C-VAR -(proclaim '(special ffi::*default-foreign-library*)) -#+ffi (setq ffi::*default-foreign-library* nil) +(proclaim '(special ffi::*foreign-library*)) +#+ffi (setq ffi::*foreign-library* nil) =20 ;; preliminary; needed here for open-for-load (sys::%putd 'warn @@ -1660,7 +1660,7 @@ (*current-source-line-1* nil) (*current-source-line-2* nil) #+ffi (ffi::*foreign-language* ffi::*foreign-language*) - #+ffi (ffi::*default-foreign-library* ffi::*default-foreign-l= ibrary*) + #+ffi (ffi::*foreign-library* ffi::*foreign-library*) (*package* *package*) ; bind *PACKAGE* (*readtable* *readtable*) ; bind *READTABLE* (compiler::*c-error-output* *error-output*) ; for compiling Index: HISTORY =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/clisp/clisp/src/HISTORY,v retrieving revision 1.22 retrieving revision 1.23 diff -u -d -r1.22 -r1.23 --- HISTORY 13 Oct 2006 04:14:50 -0000 1.22 +++ HISTORY 13 Oct 2006 05:47:11 -0000 1.23 @@ -1,6 +1,6 @@ Version Date New features =20 -2.41 2006-10-13 FFI:*DEFAULT-FOREIGN-LIBRARY*, libsvm module. +2.41 2006-10-13 FFI:DEFAULT-FOREIGN-LIBRARY, libsvm module. =20 2.40 2006-09-23 Keep doc string and lambda list in the closure = object. =20 ------------------------------ Message: 6 Date: Fri, 13 Oct 2006 05:48:24 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src foreign1.lisp,1.107,1.108 To: cli...@li... Message-ID: <E1G...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv11347/src Modified Files: foreign1.lisp=20 Log Message: oops Index: foreign1.lisp =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/clisp/clisp/src/foreign1.lisp,v retrieving revision 1.107 retrieving revision 1.108 diff -u -d -r1.107 -r1.108 --- foreign1.lisp 13 Oct 2006 05:47:10 -0000 1.107 +++ foreign1.lisp 13 Oct 2006 05:48:22 -0000 1.108 @@ -358,7 +358,7 @@ =20 (defmacro default-foreign-library (library) `(eval-when (load compile eval) - (without-package-lock ("FFI") (setq *foreign-library* ',library)))) + (without-package-lock ("FFI") (setq *foreign-library* ,library)))) =20 ;; get the even (start=3D0) or odd (start=3D1) elements of the simple ve= ctor (defun split-c-fun-arglist (args start) ------------------------------ Message: 7 Date: Fri, 13 Oct 2006 05:51:48 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.5426,1.5427 To: cli...@li... Message-ID: <E1G...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv12481/src Modified Files: ChangeLog=20 Log Message: move "release" entry to the top Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5426 retrieving revision 1.5427 diff -u -d -r1.5426 -r1.5427 --- ChangeLog 13 Oct 2006 05:47:11 -0000 1.5426 +++ ChangeLog 13 Oct 2006 05:51:45 -0000 1.5427 @@ -1,5 +1,9 @@ 2006-10-13 Sam Steingold <sd...@gn...> =20 + * version.sh: clisp 2.41 release (Friday the 13th!) + +2006-10-13 Sam Steingold <sd...@gn...> + * init.lisp, compiler.lisp: replaced FFI::*DEFAULT-FOREIGN-LIBRARY* with FFI::*FOREIGN-LIBRARY* * foreign1.lisp (DEFAULT-FOREIGN-LIBRARY): new macro, set @@ -19,10 +23,6 @@ =20 * modules/libsvm/Makefile (svm.so): pass -fPIC to $(CXX) =20 -2006-10-13 Sam Steingold <sd...@gn...> - - * version.sh: clisp 2.41 release (Friday the 13th!) - 2006-10-12 Sam Steingold <sd...@po...> =20 fixed bug #[ 1575946 ]: broken COMPILE of APPLY in LABELS ------------------------------ Message: 8 Date: Fri, 13 Oct 2006 06:16:22 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/doc impnotes.html,1.50,1.51 _clisp.html,1.22,1.23 To: cli...@li... Message-ID: <E1G...@ma...> Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv21452/doc Modified Files: impnotes.html _clisp.html=20 Log Message: regenerated Index: _clisp.html =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/clisp/clisp/doc/_clisp.html,v retrieving revision 1.22 retrieving revision 1.23 diff -u -d -r1.22 -r1.23 --- _clisp.html 13 Oct 2006 04:11:07 -0000 1.22 +++ _clisp.html 13 Oct 2006 06:16:19 -0000 1.23 @@ -1,6 +1,6 @@ <?xml version=3D"1.0" encoding=3D"UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://w= ww.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> -<html xmlns=3D"http://www.w3.org/1999/xhtml"><head><meta http-equiv=3D"C= ontent-Type" content=3D"text/html; charset=3DUTF-8" /><title>clisp</title= ><link rel=3D"stylesheet" href=3D"impnotes.css" type=3D"text/css" /><link= rev=3D"made" href=3D"mailto:cli...@li..." /><meta na= me=3D"generator" content=3D"DocBook XSL Stylesheets Vsnapshot_2006-10-11_= 0449" /><meta name=3D"date" content=3D"'generated: 2006-10-13 00:04:= 42-04:00'" /><link rel=3D"author" title=3D"Authors" href=3D"#authors" /><= link rel=3D"contents" title=3D"Table of Contents" href=3D"index.html" /><= link rel=3D"glossary" href=3D"#" /><link rel=3D"help" href=3D"#" title=3D= "" /><link rel=3D"home" title=3D"Home" href=3D"http://clisp.cons.org" /><= link rel=3D"index" href=3D"idx.html" /></head><body><div class=3D"refentr= y" lang=3D"en" xml:lang=3D"en"><a id=3D"clisp"></a><div class=3D"titlepag= e"></div><div class=3D"refnamediv"><h2>Name</h2><p>clisp =E2=80=94 ANSI C= ommon Lisp compiler, interpreter and debugger.</p></div><div class=3D"ref= synopsisdiv"><h2>Synopsis</h2><div class=3D"cmdsynopsis"><p><code class=3D= "command">clisp</code> [[<code class=3D"option"><a href=3D"#opt-help">-h= </a></code>] | [<code class=3D"option"><a href=3D"#opt-help">--help</a><= /code>]] [<code class=3D"option"><a href=3D"#opt-version">--version</a></= code>] [<code class=3D"option"><a href=3D"#opt-license">--license</a></co= de>] [<code class=3D"option"><a href=3D"#opt-help-image">-help-image</a><= /code>] [<code class=3D"option"><a href=3D"#opt-libdir">-B <em class=3D"r= eplaceable"><code>lisp-lib-dir</code></em></a></code>] +<html xmlns=3D"http://www.w3.org/1999/xhtml"><head><meta http-equiv=3D"C= ontent-Type" content=3D"text/html; charset=3DUTF-8" /><title>clisp</title= ><link rel=3D"stylesheet" href=3D"impnotes.css" type=3D"text/css" /><link= rev=3D"made" href=3D"mailto:cli...@li..." /><meta na= me=3D"generator" content=3D"DocBook XSL Stylesheets Vsnapshot_2006-10-11_= 0449" /><meta name=3D"date" content=3D"'generated: 2006-10-13 02:01:= 33-04:00'" /><link rel=3D"author" title=3D"Authors" href=3D"#authors" /><= link rel=3D"contents" title=3D"Table of Contents" href=3D"index.html" /><= link rel=3D"glossary" href=3D"#" /><link rel=3D"help" href=3D"#" title=3D= "" /><link rel=3D"home" title=3D"Home" href=3D"http://clisp.cons.org" /><= link rel=3D"index" href=3D"idx.html" /></head><body><div class=3D"refentr= y" lang=3D"en" xml:lang=3D"en"><a id=3D"clisp"></a><div class=3D"titlepag= e"></div><div class=3D"refnamediv"><h2>Name</h2><p>clisp =E2=80=94 ANSI C= ommon Lisp compiler, interpreter and debugger.</p></div><div class=3D"ref= synopsisdiv"><h2>Synopsis</h2><div class=3D"cmdsynopsis"><p><code class=3D= "command">clisp</code> [[<code class=3D"option"><a href=3D"#opt-help">-h= </a></code>] | [<code class=3D"option"><a href=3D"#opt-help">--help</a><= /code>]] [<code class=3D"option"><a href=3D"#opt-version">--version</a></= code>] [<code class=3D"option"><a href=3D"#opt-license">--license</a></co= de>] [<code class=3D"option"><a href=3D"#opt-help-image">-help-image</a><= /code>] [<code class=3D"option"><a href=3D"#opt-libdir">-B <em class=3D"r= eplaceable"><code>lisp-lib-dir</code></em></a></code>] #ifdef UNIX [<code class=3D"option"><a href=3D"#opt-link-set">-K <em class=3D"replaceable"><code>linking-set</code></em></a></code>] Index: impnotes.html =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/clisp/clisp/doc/impnotes.html,v retrieving revision 1.50 retrieving revision 1.51 diff -u -d -r1.50 -r1.51 --- impnotes.html 13 Oct 2006 04:10:59 -0000 1.50 +++ impnotes.html 13 Oct 2006 06:16:18 -0000 1.51 @@ -1,6 +1,6 @@ <?xml version=3D"1.0" encoding=3D"UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://w= ww.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> -<html xmlns=3D"http://www.w3.org/1999/xhtml"><head><meta http-equiv=3D"C= ontent-Type" content=3D"text/html; charset=3DUTF-8" /><title>Implementati= on Notes for GNU CLISP</title><link rel=3D"stylesheet" href=3D"impnotes.c= ss" type=3D"text/css" /><link rev=3D"made" href=3D"mailto:clisp-list@list= s.sourceforge.net" /><meta name=3D"generator" content=3D"DocBook XSL Styl= esheets Vsnapshot_2006-10-11_0449" /><meta name=3D"description" content=3D= "These notes describe the GNU CLISP - an implementation of the ANSI CL st= andard. See for instructions on how to report bugs (both in these notes a= nd in CLISP itself). See for information on CLISP support." /><meta name=3D= "keywords" content=3D"Lisp, Common Lisp, CLISP" /><meta name=3D"date" con= tent=3D"'generated: 2006-10-12 23:47:04-04:00'" /><link rel=3D"autho= r" title=3D"Authors" href=3D"#authors" /><link rel=3D"contents" title=3D"= Table of Contents" href=3D"index.html" /><link rel=3D"glossary" href=3D"#= glossary" /><link rel=3D"help" href=3D"#faq-help" title=3D"How do I ask f= or help?" /><link rel=3D"home" title=3D"Home" href=3D"http://clisp.cons.o= rg" /><link rel=3D"index" href=3D"idx.html" /></head><body><div class=3D"= book" lang=3D"en" xml:lang=3D"en"><div class=3D"titlepage"><div><div><h1 = class=3D"title"><a id=3D"impnotes-top"></a>Implementation Notes for <a hr= ef=3D"http://www.gnu.org" target=3D"_top">GNU</a> <a href=3D"http://clisp= .cons.org" target=3D"_top"><span><strong class=3D"command">CLISP</strong>= </span></a></h1></div><div><h2 class=3D"subtitle">These notes document <a= href=3D"http://clisp.cons.org" target=3D"_top"><span><strong class=3D"co= mmand">CLISP</strong></span></a> version 2.41</h2></div><div><h3 class=3D= "corpauthor"><span class=3D"inlinemediaobject"><img src=3D"clisp.png" /><= /span></h3></div><div><div class=3D"authorgroup"><a id=3D"authors"></a><d= iv class=3D"author"><h3 class=3D"author"><span class=3D"firstname">Bruno<= /span> <span class=3D"surname">Haible</span></h3></div><div class=3D"auth= or"><h3 class=3D"author"><span class=3D"firstname">Michael</span> <span c= lass=3D"surname">Stoll</span></h3></div><div class=3D"author"><h3 class=3D= "author"><span class=3D"firstname">Sam</span> <span class=3D"surname">Ste= ingold</span></h3></div><div class=3D"othercredit"><h3 class=3D"othercred= it"><span class=3D"othername">See +<html xmlns=3D"http://www.w3.org/1999/xhtml"><head><meta http-equiv=3D"C= ontent-Type" content=3D"text/html; charset=3DUTF-8" /><title>Implementati= on Notes for GNU CLISP</title><link rel=3D"stylesheet" href=3D"impnotes.c= ss" type=3D"text/css" /><link rev=3D"made" href=3D"mailto:clisp-list@list= s.sourceforge.net" /><meta name=3D"generator" content=3D"DocBook XSL Styl= esheets Vsnapshot_2006-10-11_0449" /><meta name=3D"description" content=3D= "These notes describe the GNU CLISP - an implementation of the ANSI CL st= andard. See for instructions on how to report bugs (both in these notes a= nd in CLISP itself). See for information on CLISP support." /><meta name=3D= "keywords" content=3D"Lisp, Common Lisp, CLISP" /><meta name=3D"date" con= tent=3D"'generated: 2006-10-13 01:55:34-04:00'" /><link rel=3D"autho= r" title=3D"Authors" href=3D"#authors" /><link rel=3D"contents" title=3D"= Table of Contents" href=3D"index.html" /><link rel=3D"glossary" href=3D"#= glossary" /><link rel=3D"help" href=3D"#faq-help" title=3D"How do I ask f= or help?" /><link rel=3D"home" title=3D"Home" href=3D"http://clisp.cons.o= rg" /><link rel=3D"index" href=3D"idx.html" /></head><body><div class=3D"= book" lang=3D"en" xml:lang=3D"en"><div class=3D"titlepage"><div><div><h1 = class=3D"title"><a id=3D"impnotes-top"></a>Implementation Notes for <a hr= ef=3D"http://www.gnu.org" target=3D"_top">GNU</a> <a href=3D"http://clisp= .cons.org" target=3D"_top"><span><strong class=3D"command">CLISP</strong>= </span></a></h1></div><div><h2 class=3D"subtitle">These notes document <a= href=3D"http://clisp.cons.org" target=3D"_top"><span><strong class=3D"co= mmand">CLISP</strong></span></a> version 2.41</h2></div><div><h3 class=3D= "corpauthor"><span class=3D"inlinemediaobject"><img src=3D"clisp.png" /><= /span></h3></div><div><div class=3D"authorgroup"><a id=3D"authors"></a><d= iv class=3D"author"><h3 class=3D"author"><span class=3D"firstname">Bruno<= /span> <span class=3D"surname">Haible</span></h3></div><div class=3D"auth= or"><h3 class=3D"author"><span class=3D"firstname">Michael</span> <span c= lass=3D"surname">Stoll</span></h3></div><div class=3D"author"><h3 class=3D= "author"><span class=3D"firstname">Sam</span> <span class=3D"surname">Ste= ingold</span></h3></div><div class=3D"othercredit"><h3 class=3D"othercred= it"><span class=3D"othername">See <span class=3D"emphasis"><em><a class=3D"clisp-cvs" href=3D"http://cl= isp.cvs.sourceforge.net/*checkout*/clisp/clisp/COPYRIGHT"><code class=3D"= filename">COPYRIGHT</code></a></em></span> for the list of other contributors.</span></h3></div></div></div><div= ><p class=3D"copyright">Copyright =C2=A9 1992-2006 Bruno Haible</p></div>= <div><p class=3D"copyright">Copyright =C2=A9 1998-2006 Sam Steingold</p><= /div><div><div class=3D"legalnotice"><a id=3D"legalese"></a><p class=3D"l= egalnotice-title"><b>Legal Status of the <a href=3D"http://clisp.cons.org= " target=3D"_top"><span><strong class=3D"command">CLISP</strong></span></= a> Implementation Notes</b></p><p>These notes are dually licensed under = <a href=3D"http://www.gnu.org" target=3D"_top">GNU</a> <a href=3D"http://= www.gnu.org/copyleft/fdl.html" target=3D"_top">GFDL</a> and <a href=3D"ht= tp://www.gnu.org" target=3D"_top">GNU</a> <a href=3D"http://www.gnu.org/c= opyleft/gpl.html" target=3D"_top">GPL</a>. @@ -7851,8 +7851,8 @@ This is dangerous (just think of overwriting a string with a longer one or storing some data in a <code class=3D"constant">NULL</c= ode> pointer...) and deprecated.</dd><dt><span class=3D"term"><code class=3D"code">(<code = class=3D"constant">:LIBRARY</code> <em class=3D"replaceable"><code>name</= code></em>)</code></span></dt><dd>Specifies the (optional) dynamic librar= y - which contains the variable, the default is the value of the variable - <a href=3D"#dffi-default-lib"><code class=3D"varname">FFI:*DEFAULT-FO= REIGN-LIBRARY*</code></a>.</dd><dt><span class=3D"term"><code class=3D"co= de">(<code class=3D"constant">:DOCUMENTATION</code> <em class=3D"replacea= ble"><code>string</code></em>)</code></span></dt><dd>Specifies the (optio= nal) <a href=3D"http://www.lisp.org/HyperSpec/Body/stagenfun_doc_umentati= oncp.html" target=3D"_top"><code class=3D"function">VARIABLE</code></a> d= ocumentation. + which contains the variable, the default is set by + <a href=3D"#dffi-default-lib"><code class=3D"function">FFI:DEFAULT-FO= REIGN-LIBRARY</code></a>.</dd><dt><span class=3D"term"><code class=3D"cod= e">(<code class=3D"constant">:DOCUMENTATION</code> <em class=3D"replaceab= le"><code>string</code></em>)</code></span></dt><dd>Specifies the (option= al) <a href=3D"http://www.lisp.org/HyperSpec/Body/stagenfun_doc_umentatio= ncp.html" target=3D"_top"><code class=3D"function">VARIABLE</code></a> do= cumentation. </dd></dl></div></dd><dt><a id=3D"def-c-const"></a><span class=3D"term">= <code class=3D"code">(<a href=3D"#def-c-const"><code class=3D"function">F= FI:DEF-C-CONST</code></a> <em class=3D"replaceable"><code>name</code></em= > {<em class=3D"replaceable"><code>option</code></em>}*)</code></span><= /dt><dd><p>This form defines a Lisp <a href=3D"http://www.lisp.org/HyperS= pec/Body/sec_3-1-2-1-1-3.html" target=3D"_top">constant variable</a> <em = class=3D"replaceable"><code>name</code></em> whose value is determined at link time using an internal <a href=3D"#dffi" = title=3D"31.3. The Foreign Function Call Facility"><code class=3D"cl= assname">FFI:FOREIGN-FUNCTION</code></a>. @@ -7872,8 +7872,8 @@ </dd><dt><span class=3D"term"><code class=3D"code">(:BUILT-IN <a href=3D= "http://www.lisp.org/HyperSpec/Body/typ_boolean.html" target=3D"_top"><co= de class=3D"classname">BOOLEAN</code></a>)</code></span></dt><dd>When the= function is a <a href=3D"http://www.eskimo.com/~scs/C-faq/top.html" targ= et=3D"_top"><span><strong class=3D"command">C</strong></span></a> built-i= n, the full prototype will be output (unless suppressed by <a href=3D"#ffi-extern= -output"><code class=3D"varname">FFI:*OUTPUT-C-FUNCTIONS*</code></a>). </dd><dt><span class=3D"term"><code class=3D"code">(<code class=3D"const= ant">:LIBRARY</code> <em class=3D"replaceable"><code>name</code></em>)</c= ode></span></dt><dd>Specifies the (optional) dynamic library - which contains the function, the default is the value of the variable - <a href=3D"#dffi-default-lib"><code class=3D"varname">FFI:*DEFAULT-FO= REIGN-LIBRARY*</code></a></dd><dt><span class=3D"term"><code class=3D"cod= e">(<code class=3D"constant">:DOCUMENTATION</code> <em class=3D"replaceab= le"><code>string</code></em>)</code></span></dt><dd>Specifies the (option= al) <a href=3D"http://www.lisp.org/HyperSpec/Body/stagenfun_doc_umentatio= ncp.html" target=3D"_top"><code class=3D"function">FUNCTION</code></a> do= cumentation. + which contains the function, the default is set by + <a href=3D"#dffi-default-lib"><code class=3D"function">FFI:DEFAULT-FO= REIGN-LIBRARY</code></a></dd><dt><span class=3D"term"><code class=3D"code= ">(<code class=3D"constant">:DOCUMENTATION</code> <em class=3D"replaceabl= e"><code>string</code></em>)</code></span></dt><dd>Specifies the (optiona= l) <a href=3D"http://www.lisp.org/HyperSpec/Body/stagenfun_doc_umentation= cp.html" target=3D"_top"><code class=3D"function">FUNCTION</code></a> doc= umentation. </dd></dl></div></dd><dt><a id=3D"def-call-in"></a><span class=3D"term">= <code class=3D"code">(<a href=3D"#def-call-in"><code class=3D"function">F= FI:DEF-CALL-IN</code></a> <em class=3D"replaceable"><code>name</code></em> {<em clas= s=3D"replaceable"><code>option</code></em>}*)</code></span></dt><dd><p>Th= is form defines a named call-in function (i.e., a Lisp function called from the foreign language: control flow temporary @@ -7889,15 +7889,16 @@ using <a href=3D"#dffi-close-lib"><code class=3D"function">FFI:CLOSE-= FOREIGN-LIBRARY</code></a> first. When you try to use the <a href=3D"#dffi-variables" title=3D"31.3.5. Foreign variables">= <code class=3D"classname">FFI:FOREIGN-VARIABLE</code></a> or the <a href=3D= "#dffi" title=3D"31.3. The Foreign Function Call Facility"><code cla= ss=3D"classname">FFI:FOREIGN-FUNCTION</code></a> which resides in the library <em class=3D"replaceable"><code>name</code></em>, it will be = re-opened automatically. -</p></dd><dt><a id=3D"dffi-default-lib"></a><span class=3D"term"><a href= =3D"#dffi-default-lib"><code class=3D"varname">FFI:*DEFAULT-FOREIGN-LIBRA= RY*</code></a></span></dt><dd><p>This is the default <code class=3D"const= ant">:LIBRARY</code> argument for - <a href=3D"#def-call-out"><code class=3D"function">FFI:DEF-CALL-OUT</= code></a> and <a href=3D"#def-c-var"><code class=3D"function">FFI:DEF-C-V= AR</code></a>. This variable should be <a href=3D"http://www.lisp.org/Hy= perSpec/Body/convar_nil.html" target=3D"_top"><code class=3D"constant">NI= L</code></a> +</p></dd><dt><a id=3D"dffi-default-lib"></a><span class=3D"term"><code c= lass=3D"code">(<a href=3D"#dffi-default-lib"><code class=3D"function">FFI= :DEFAULT-FOREIGN-LIBRARY</code></a> + <em class=3D"replaceable"><code>library-name</code></em>)</code></spa= n></dt><dd><p>This macro sets the default <code class=3D"constant">:LIBRA= RY</code> argument for + <a href=3D"#def-call-out"><code class=3D"function">FFI:DEF-CALL-OUT</= code></a> and <a href=3D"#def-c-var"><code class=3D"function">FFI:DEF-C-V= AR</code></a>. <em class=3D"replaceable"><code>library-name</code></em> = should be <a href=3D"http://www.lisp.org/HyperSpec/Body/convar_nil.html" = target=3D"_top"><code class=3D"constant">NIL</code></a> (meaning use the <a href=3D"http://www.eskimo.com/~scs/C-faq/top.html= " target=3D"_top"><span><strong class=3D"command">C</strong></span></a> f= ile produced by <a href=3D"impnotes.html#compilefile" class=3D"olink"><co= de class=3D"function">COMPILE-FILE</code></a>), a <a href=3D"http://www.lisp.org/HyperSpec/Body/syscla_string.html" tar= get=3D"_top"><code class=3D"classname">STRING</code></a>, or, depending o= n the underlying <a class=3D"unix" href=3D"http://www.opengroup.org/onlinep= ubs/007904975/functions/dlsym.html"><code class=3D"function">dlsym</code>= </a> implementation, - <code class=3D"constant">:DEFAULT</code> or <code class=3D"constant">= :NEXT</code>.</p><p>This variable is bound in each <a href=3D"http://www.= lisp.org/HyperSpec/Body/glo_c.html#compilation_unit" target=3D"_top">comp= ilation unit</a>, so, if you are - interfacing to a single library, you can set this variable in the - beginning of your lisp file and omit the <code class=3D"constant">:LI= BRARY</code> - argument throughout the file.</p></dd><dt><a id=3D"def-c-struct"></a>= <span class=3D"term"><code class=3D"code">(<a href=3D"#def-c-struct"><cod= e class=3D"function">FFI:DEF-C-STRUCT</code></a> + <code class=3D"constant">:DEFAULT</code> or <code class=3D"constant">= :NEXT</code>.</p><p>The default is set separately in each <a href=3D"http= ://www.lisp.org/HyperSpec/Body/glo_c.html#compilation_unit" target=3D"_to= p">compilation unit</a>, so, if you + are interfacing to a single library, you can set this variable in the + beginning of your lisp file and omit the <code class=3D"constant">:LI= BRARY</code> argument + throughout the file.</p></dd><dt><a id=3D"def-c-struct"></a><span cla= ss=3D"term"><code class=3D"code">(<a href=3D"#def-c-struct"><code class=3D= "function">FFI:DEF-C-STRUCT</code></a> <em class=3D"replaceable"><code>name</code></em> (<em class=3D"replac= eable"><code>symbol</code></em> <em class=3D"replaceable"><code>c-type</c= ode></em>)*)</code></span></dt><dd><p>This form defines <em class=3D"repl= aceable"><code>name</code></em> to be both a <a href=3D"http://www.lisp.org/HyperSpec/Body/syscla_structure-class.h= tml" target=3D"_top"><code class=3D"classname">STRUCTURE-CLASS</code></a>= and a foreign <a href=3D"http://www.eskimo.com/~scs/C-faq/top.html" targ= et=3D"_top"><span><strong class=3D"command">C</strong></span></a> type wi= th the given slots. If this class representation overhead is not needed one should conside= r @@ -13650,4 +13651,4 @@ Protocol</a></em>. </span><span class=3D"pubdate">1991. </span><spa= n class=3D"pagenums">335 pages. </span>ISBN=C2=A00-262-61074-4. <span cla= ss=3D"publisher"><span class=3D"publishername"><a href=3D"http://www-mitp= ress.mit.edu" target=3D"_top">MIT Press</a>. </span></span></p></div></div><div class=3D"bibliodiv">= <h3 class=3D"title"><a id=3D"ref-ansi"></a>ANSI standard documents</h3><d= iv class=3D"biblioentry"><a id=3D"ansi-cl"></a><p>[<abbr class=3D"abbrev"= >ANSI CL</abbr>] ANSI CL standard<span class=3D"pubdate">1994. </span><sp= an class=3D"title"><i>ANSI Common Lisp standard X3.226-1994 - <a href=3D"http://www.ncits.org/tc_home/j13sd4.htm" target=3D"_to= p">Information - Technology - Programming Language - Common Lisp</a></i>. </span><= /p></div><div class=3D"biblioentry"><a id=3D"CLHS"></a><p>[<abbr class=3D= "abbrev">CLHS</abbr>] Common Lisp HyperSpec<span class=3D"title"><i><a hr= ef=3D"http://www.lisp.org/HyperSpec/FrontMatter/" target=3D"_top">Common = Lisp HyperSpec</a></i>. </span></p></div></div></div></div><div class=3D"= bookinfo"><hr width=3D"100%" /><table width=3D"100%" summary=3D"impnotes = meta info"><th><td align=3D"left">These notes document <a href=3D"http://= clisp.cons.org" target=3D"_top"><span><strong class=3D"command">CLISP</st= rong></span></a> version 2.41</td><td align=3D"right">Last modified: 2006= -10-12</td></th></table></div><div class=3D"custom-footer"><hr width=3D"1= 00%" /><table width=3D"100%"><tr><td align=3D"left"><a href=3D"http://cli= sp.cons.org"><img src=3D"clisp.png" width=3D"48" height=3D"48" alt=3D"[CL= ISP home]" /></a></td><td align=3D"center"><a href=3D"http://sourceforge.= net/donate/index.php?group_id=3D1355"><img src=3D"http://images.sourcefor= ge.net/images/project-support.jpg" width=3D"88" height=3D"32" border=3D"0= " alt=3D"[Support This Project]" /></a></td><td align=3D"right"><a href=3D= "http://sourceforge.net"><img width=3D"125" height=3D"37" alt=3D"[SourceF= orge]" src=3D"http://sflogo.sourceforge.net/sflogo.php?group_id=3D1355&am= p;type=3D2&page=3Dimpnotes-top" /></a></td></tr></table></div></body>= </html> + Technology - Programming Language - Common Lisp</a></i>. </span><= /p></div><div class=3D"biblioentry"><a id=3D"CLHS"></a><p>[<abbr class=3D= "abbrev">CLHS</abbr>] Common Lisp HyperSpec<span class=3D"title"><i><a hr= ef=3D"http://www.lisp.org/HyperSpec/FrontMatter/" target=3D"_top">Common = Lisp HyperSpec</a></i>. </span></p></div></div></div></div><div class=3D"= bookinfo"><hr width=3D"100%" /><table width=3D"100%" summary=3D"impnotes = meta info"><th><td align=3D"left">These notes document <a href=3D"http://= clisp.cons.org" target=3D"_top"><span><strong class=3D"command">CLISP</st= rong></span></a> version 2.41</td><td align=3D"right">Last modified: 2006= -10-13</td></th></table></div><div class=3D"custom-footer"><hr width=3D"1= 00%" /><table width=3D"100%"><tr><td align=3D"left"><a href=3D"http://cli= sp.cons.org"><img src=3D"clisp.png" width=3D"48" height=3D"48" alt=3D"[CL= ISP home]" /></a></td><td align=3D"center"><a href=3D"http://sourceforge.= net/donate/index.php?group_id=3D1355"><img src=3D"http://images.sourcefor= ge.net/images/project-support.jpg" width=3D"88" height=3D"32" border=3D"0= " alt=3D"[Support This Project]" /></a></td><td align=3D"right"><a href=3D= "http://sourceforge.net"><img width=3D"125" height=3D"37" alt=3D"[SourceF= orge]" src=3D"http://sflogo.sourceforge.net/sflogo.php?group_id=3D1355&am= p;type=3D2&page=3Dimpnotes-top" /></a></td></tr></table></div></body>= </html> ------------------------------ ------------------------------------------------------------------------- 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 ea= sier Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronim= o http://sel.as-us.falkag.net/sel?cmd=3Dlnk&kid=3D120709&bid=3D263057&dat=3D= 121642 ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 6, Issue 19 **************************************** |