Какую команду можно использовать для очистки экрана в CLISP?

Например, cls для cmd.exe. Это очень раздражает, если я не могу этого сделать.


person Thomson    schedule 03.02.2011    source источник


Ответы (7)


Вы можете использовать screen:clear-window для этого:

(screen:with-window (screen:clear-window screen:*window*))

Для получения дополнительной информации см. документацию на экране. Также обратите внимание, что эти функции специфичны для clisp.

person sepp2k    schedule 03.02.2011

Это не сработало для меня, но это сработало (приобретено по ссылке)

(screen:clear-window (screen:make-window))
person Rob    schedule 11.06.2013
comment
Я использую clisp на Mac, и этот ответ сработал для меня. - person Bilbo Baggins; 01.10.2016

В зависимости от того, какой терминал вы используете (поддержка управляющих последовательностей ANSI, например, на большинстве * nix), вы можете попробовать:

(defun cls()
  (format t "~A[H~@*~A[J" #\escape))

Затем назовите это:

(cls)
person automaton    schedule 22.07.2014

если вы используете clisp внутри emacs

C-c M-o

что, конечно,

Control-C Alt-o  -or-
Control-C Meta-o

это привязка клавиш по умолчанию для вызова «очистить буфер» из меню «repl».

person miercoledi    schedule 23.07.2013
comment
Это неподходящий ответ, потому что он не очищает экран программно из кода lisp/clisp. - person francogrex; 15.02.2020

ЗАЖИМ ПОД ОКНА

(расширение: run-shell-command "cls")

(defun cls() (ext:run-shell-command "cls"))

тогда пиши в ответ

(клс) и вуаля

person Sai    schedule 03.06.2019
comment
Не могли бы вы также добавить объяснение, как это решает проблему? - person Nilambar Sharma; 03.06.2019

(цикл для x от 1 до 1400 do (princ)
)

person user3058990    schedule 06.03.2021
comment
Конечно, вы можете изменить 1400 на любой номер, который вам больше всего подходит. - person user3058990; 06.03.2021

Nilambar это для clisp 2.49, работающего под окнами

Когда вы учитесь, как я, делаете много тестов, попыток, ошибок, прерываний и т. Д., И экран repl или интерпретатор - это свинарник этих попыток, и новичку трудно найти результаты для новых попыток, затем вы вводите (ext: run- shell-comand «cls»), а экран repl clean it и подсказка переходят в левый верхний угол.

person Sai    schedule 03.06.2019
comment
Привет Сай. Вы отвечаете на комментарий в другом ответе. Пожалуйста, отредактируйте свой первый ответ или используйте комментарии к ответу, чтобы предоставить дополнительную информацию. - person Diego Malone; 04.06.2019