ce-command-enter: remove unnecessary subseq
This commit is contained in:
parent
0c498871ad
commit
0039691543
2
ce.cl
2
ce.cl
|
@ -96,7 +96,7 @@
|
||||||
(setq inpoint outpoint)))
|
(setq inpoint outpoint)))
|
||||||
(ce-reset-input))
|
(ce-reset-input))
|
||||||
(let ((out (mod outpoint (list-length buffer))))
|
(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)
|
(defun ce-command-eval (c)
|
||||||
"evaluate a lisp expression"
|
"evaluate a lisp expression"
|
||||||
|
|
Loading…
Reference in New Issue
Block a user