/[meta-cvs]/meta-cvs/F-6BD7679FED76D6E5A7D36DC36C205FC1.lisp
ViewVC logotype

Diff of /meta-cvs/F-6BD7679FED76D6E5A7D36DC36C205FC1.lisp

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

revision 1.21 by kaz, Mon Mar 8 06:11:40 2004 UTC revision 1.22 by kaz, Sat Dec 11 07:58:05 2004 UTC
# Line 6  Line 6 
6    
7  ;;; Null pointer handling  ;;; Null pointer handling
8    
9  #.(when (< (first (system::version)) 20020129)  (defmacro pointer-null (p) `(ffi:foreign-address-null ,p))
     (push :clisp-old *features*)  
     (values))  
   
 #+clisp-old  
   (defmacro pointer-null (p) `(unix-funcs:null-pointer-p ,p))  
   
 #-clisp-old  
   (defmacro pointer-null (p) `(ffi:foreign-address-null ,p))  
10    
11  (defmacro null-to-nil (p)  (defmacro null-to-nil (p)
12    (let ((pointer (gensym)))    (let ((pointer (gensym)))

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

  ViewVC Help
Powered by ViewVC 1.1.5