mirror of
https://gitlab.com/eql/EQL5.git
synced 2025-12-06 10:31:19 -08:00
15 lines
258 B
Common Lisp
15 lines
258 B
Common Lisp
;;; Lisp calling C++ calling Lisp
|
|
|
|
(in-package :eql-user)
|
|
|
|
(defvar *lib* (qload-c++ (in-src "Qt_EQL/eql_fun_cpp")))
|
|
|
|
(defun say-number (n)
|
|
(format nil "~R" n))
|
|
|
|
;; see examples in "cpp_calling_lisp/lib.cpp"
|
|
|
|
(! "runExamples" (:qt *lib*)) ; note :qt
|
|
|
|
(qq)
|
|
|