;; This file:
;;   https://anggtwu.net/MAXIMA/2025-repl.lisp.html
;;   https://anggtwu.net/MAXIMA/2025-repl.lisp
;;           (find-angg "MAXIMA/2025-repl.lisp")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;;
;; (defun e () (interactive) (find-angg "MAXIMA/2025-repl.lisp"))
;; (find-es "maxima" "to_lisp")

;; (find-maximagitfile "src/init-cl.lisp" "(defmfun $to_lisp ")
;; (find-maximagitfile "src/init-cl.lisp" "(defun to-maxima ")
;; (find-maximagitfile "src/init-cl.lisp" "(defun maxima-read-eval-print-loop ")
;; (find-maximagitfile "src/macsys.lisp" "(defun toplevel-macsyma-eval ")
;; (find-maximagitfile "src/macsys.lisp" "(defun continue ")
;; (find-maximagitfile "src/macsys.lisp" "(defun macsyma-top-level ")
;; (find-maximagitfile "src/init-cl.lisp" "(defun cl-user::run ")

;; (defvar $maxima_repl_stuff)
;; (setq   $maxima_repl_stuff #$[]$)
;; (defun  $maxima_repl_stuff_nonempty () (if (rest $maxima_repl_stuff) "nonempty"))
;; (defun  $maxima_repl_stuff_pop () (pop (rest $maxima_repl_stuff)))
  
;; (defun maxima-read-eval-print-loop ()
;;   (when *debugger-hook*
;;     (setf *debugger-hook* #'maxima-lisp-debugger-repl))
;;   (let ((eof (gensym)))
;;     (loop
;;       (catch 'to-maxima-repl
;;         (format-prompt t "~%~A> " (package-name *package*))
;;         (finish-output)
;;         (let ((input (maxima-repl-read eof))) ; Edrx
;;           (when (eq input eof)
;;             (fresh-line)
;;             (to-maxima))
;;           (format t "~{~&~S~}" (interactive-eval input)))))))

(defun $maxima_repl_stuff_pop_and_print ()
  (let ((line ($maxima_repl_stuff_pop)))
    (format t "~s~%" line)
    line))

(defun maxima-repl-read (eof)
  (if ($maxima_repl_stuff_nonempty)
      ($maxima_repl_stuff_pop_and_print)
      (read *standard-input* nil eof)))

#|
* (eepitch-sly-kill 'show-only)
* (eepitch-sly-kill)
* (eepitch-sly)
*   (eepitch-maxima)
*   (eepitch-kill)
*   (eepitch-maxima)
      load("startsly");
* (eepitch-b '(sly-connect "localhost" 56789))
* (eepitch-sly-set-pkgbuffers)
* (eepitch-sly-select-pkgbuffer "maxima")
* (eepitch-maxima)
load("2025-repl.lisp");
maxima_repl_stuff : ["a;","b;"];
maxima_repl_stuff : ["(+ 2 3)","(+ 3 4)"];
1+2;
to_lisp();
  #$[]$
  (trace maxima-read-eval-print-loop :break t)
  (to-maxima)

|#




;; Local Variables:
;; coding:  utf-8-unix
;; End: