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 |
|
|
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 |
|
|