;; You should have received a copy of the GNU General Public License
;; along with JSCL. If not, see <http://www.gnu.org/licenses/>.
;; You should have received a copy of the GNU General Public License
;; along with JSCL. If not, see <http://www.gnu.org/licenses/>.
;;; Set some external entry point to the Lisp implementation to the
;;; console. It would not be necessary when FFI is finished.
(let ((*root* #j:lisp))
(setf #j:read #'ls-read-from-string)
(setf #j:print #'prin1-to-string)
(setf #j:eval #'eval)
;;; Set some external entry point to the Lisp implementation to the
;;; console. It would not be necessary when FFI is finished.
(let ((*root* #j:lisp))
(setf #j:read #'ls-read-from-string)
(setf #j:print #'prin1-to-string)
(setf #j:eval #'eval)
(setf #j:evalString (lambda (str) (eval (ls-read-from-string str))))
(setf #j:evalInput (lambda (str) (eval-interactive (ls-read-from-string str))))
(setf #j:evalString (lambda (str) (eval (ls-read-from-string str))))
(setf #j:evalInput (lambda (str) (eval-interactive (ls-read-from-string str))))