The following simple example creates a new editor command called Current
(editor:defcommand "Current Line" (p)
"Computes the line number of the current point and
prints it in the Echo Area"
"Prints the line number of the current point"
(let* ((cpoint (editor:current-point))
(svpoint (editor:copy-point cpoint))
(if (editor:point> cpoint svpoint)
(unless (editor:next-line-command nil)
(editor:move-point cpoint svpoint)
(editor:message "Current Line Number: ~S " count)))