Подскажите пожалуйста, как поставить пароль на лисп

[Pilot]

Что имеется в виду?

Если нужно сделать лисп неудобочитаемым (и тем самым спрятать какие-то свои лисп-идеи) - воспользуйся кельвинатором.
Если неизменяемым - тогда лучше его откомпилировать.

[{Smirnoff}]

Может имеется ввиду пароль на запуск лиспа? Например такого "убийственного" как лисп Эдуарда для защиты чертежей. Так надо дописать несколько строчек, к примеру:

(setq passw(getstring "Enter password: "))
(if(/= passw "MyPassword")
(progn
(alert "Incorrect password!")
(quit)
); end progn
); end if

Потом прокомпилировать.

[Pilot]

2 Fantomas

И еще добавить:
...
(if (= passw "MyPassword")
(progn
(alert "Correct password. But Incorrect user!!")
(quit)
); end progn
); end if

[{Smirnoff}]

>Pilot
Тогда уж так:
(getstring "Enter password: ")
(alert "This program havn't any correct password! Bye.")
(quit)

[Pilot]

2 Fantomas
Кто проще?
(defun NAME ()(quit)(princ))
*Вставка (princ) в конце проги - хороший стиль программирования

[{Smirnoff}]

А вот (princ) в данном случае не нужен Поскольку программа обрывается на (quit). Так что (defun c:xyz()(quit)). Попробуешь еще короче

[Startrek]

(EXIT)

[Pilot]

(EXIT) - не программа.

[Torino]

(defun c:a () (gc))
Делает то же, что и ваши программы (т.е. не делает ничего) и на целых два символа короче

[kos]

Сообщение от Torino (defun c:a () (gc)) Делает то же, что и ваши программы (т.е. не делает ничего) и на целых два символа короче

1. Если уж счет пошел на символы, предлагаю убрать из кода "c:".
2. Есть еще способ "померяться пиписьками" - при одинаковом количестве символов в функции, сравнивать сумму ascii-кодов символов, из которых состоит текст этой функции.

ЗЫ: посмотрел на название топика и на содержание... И чем только модераторы занимаются?..

[Геннадий aka PG]

А вот, кстати, заметил, что сейчас все больше и больше начинающих программистов (пусть не обижаются остальные, но есть такие) стараются запаролить, защитить от взлома и тд и тп свою программу типа "hello! word" и по-моему, еще до ее написания
Лет 5 назад всё и все были проще и добрее

OFF
Чем занимаются модераторы?
Меня режут в ветке про "Чертежник"

[Эдуард]

А зачем пугать пользователя exit-ами и quit-ами с аварийным
завершением программы? Когда можно все сделать корректно и
без обид.

Код:

[Выделить все]

(defun myprogram()
  (initget  "Mypassw")
  (if
    (getkword "Угадай пароль[Выход]:")
    (progn
    ............. текст программы
    )
    (alert "Извини не угадал")
    )
  (princ)
  )

[Эдуард]

Ой конечно должно быть -(initget "MYPASSW")