ce-command-enter: remove unnecessary subseq

2023-10-12 18:37:28 -04:00 · 2023-10-12 18:37:28 -04:00 · 0039691543
parent 0c498871ad
commit 0039691543
1 changed files with 1 additions and 1 deletions
--- a/ce.cl
+++ b/ce.cl
@ -96,7 +96,7 @@
     (setq inpoint outpoint)))
   (ce-reset-input))
  (let ((out (mod outpoint (list-length buffer))))
-   (format t "~{~a~%~}" (subseq buffer out (1+ out)))))
+   (format t "~a~%" (car (nthcdr out buffer)))))

 (defun ce-command-eval (c)
  "evaluate a lisp expression"