/[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.5.2.6 by kaz, Thu Jan 8 15:34:05 2004 UTC revision 1.5.2.7 by kaz, Mon Jul 26 05:33:27 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*)  ;;; In CLISP versions newer than 2.30, two new global boolean
43      (values))  ;;; variables exist in the FFI package. They must be set to
44    ;;; T to obtain an old compiler behavior.
45  #+clisp-newer-than-2.30  ;;;
46    (eval-when (:compile-toplevel)  (eval-when (:compile-toplevel)
47      (setf ffi:*output-c-functions* t)    (when (find-symbol "*OUTPUT-C-FUNCTIONS*" "FFI")
48      (setf ffi:*output-c-variables* t))      (setf ffi:*output-c-functions* t))
49      (when (find-symbol "*OUTPUT-C-VARIABLES*" "FFI")
50        (setf ffi:*output-c-variables* t)))
51    
52  ;;;  ;;;
53  ;;; Null pointer test, needed in CLISP 2.27 and older.  ;;; Null pointer test, needed in CLISP 2.27 and older.

Legend:
Removed from v.1.5.2.6  
changed lines
  Added in v.1.5.2.7

  ViewVC Help
Powered by ViewVC 1.1.5