/[gcl]/gcl/xgcl-2/general.lsp
ViewVC logotype

Diff of /gcl/xgcl-2/general.lsp

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

revision 1.1.1.1 by camm, Tue Aug 13 03:24:29 2002 UTC revision 1.2 by camm, Fri Aug 8 13:42:06 2003 UTC
# Line 38  Line 38 
38    )    )
39  (defentry get_c_string_2 (object) (object get_c_string))  (defentry get_c_string_2 (object) (object get_c_string))
40    
41  /* make sure string is null terminated */  ;; make sure string is null terminated
42    
43  (defentry get-c-string (object) (object "(object)object_to_string"))  (defentry get-c-string (object) (object "(object)object_to_string"))
44    
# Line 63  Line 63 
63    )    )
64  (defentry get-st-point2 (object) (int get_c_string))  (defentry get-st-point2 (object) (int get_c_string))
65    
66  /* make sure string is null terminated */  ;; make sure string is null terminated
67  (defun  get-st-point (string)  (defun  get-st-point (string)
68    ( get-st-point2 (concatenate 'string string "")))    ( get-st-point2 (concatenate 'string string "")))
69    

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26