mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2025-12-06 02:40:26 -08:00
15 lines
541 B
Common Lisp
15 lines
541 B
Common Lisp
;;; Copyright (c) 2006, Juan Jose Garcia Ripoll.
|
|
;;;
|
|
;;; ECL is free software; you can redistribute it and/or
|
|
;;; modify it under the terms of the GNU Library General Public
|
|
;;; License as published by the Free Software Foundation; either
|
|
;;; version 2 of the License, or (at your option) any later version.
|
|
;;;
|
|
;;; See file '../Copyright' for full details.
|
|
|
|
(ffi::clines "extern const char *hello_string;")
|
|
|
|
(ffi::def-foreign-var ("hello_string" +hello-string+) (* :char) nil)
|
|
|
|
(print (ffi:convert-from-foreign-string +hello-string+))
|
|
|