/[meta-cvs]/meta-cvs/F-258A1D35AE34AADD34D34F5A328405CC.lisp
ViewVC logotype

Diff of /meta-cvs/F-258A1D35AE34AADD34D34F5A328405CC.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by kaz, Wed Apr 23 05:39:27 2003 UTC revision 1.11 by kaz, Fri Jan 9 05:18:14 2004 UTC
# Line 38  Line 38 
38  (defmacro def-c-call-out (sym &body args)  (defmacro def-c-call-out (sym &body args)
39    `(def-call-out ,sym (:language :stdc) ,@args))    `(def-call-out ,sym (:language :stdc) ,@args))
40    
41    #.(when (> (read-from-string (lisp-implementation-version)) 2.30)
42        (push :clisp-newer-than-2.30 *features*)
43        (values))
44    
45    #+clisp-newer-than-2.30
46      (eval-when (:compile-toplevel)
47        (setf ffi:*output-c-functions* t)
48        (setf ffi:*output-c-variables* t))
49    
50  ;;;  ;;;
51  ;;; Null pointer test, needed in CLISP 2.27 and older.  ;;; Null pointer test, needed in CLISP 2.27 and older.
52  ;;;  ;;;

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

  ViewVC Help
Powered by ViewVC 1.1.5