mirror of
https://gitlab.com/eql/EQL5.git
synced 2025-12-07 02:50:59 -08:00
15 lines
348 B
Common Lisp
15 lines
348 B
Common Lisp
;;; enable QML to call Lisp functions
|
|
;;; (requires a C++ plugin, see "lib/")
|
|
|
|
(provide :qml-lisp)
|
|
|
|
(in-package :eql)
|
|
|
|
(defvar *qml-lisp* (qload-c++ "lib/qml_lisp"))
|
|
|
|
(defun qml-apply (function arguments)
|
|
(let ((value (apply (intern (string-upcase function)) arguments)))
|
|
(if (stringp value)
|
|
value
|
|
(princ-to-string value))))
|
|
|