(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))))