Смотрите, как умеет clisp

0

1

А вы знали, что если при создании пакета в clisp при помощи defpackage добавить (:modern t), например так:

(defpackage foo
  (:use :cl)
  (:modern t))

то при чтении символов из этого пакета ридер не будет приводить их к верхнему регистру, т.е. foo::lol, foo::Lol и foo:lOl будут обозначать разные символы.

Это же прям лисп 21 века! Так-то.

Ссылка

←	Qt размеры непоказанного окна

Хочется странного

→

Clisp вообще самый лучший из всех реализаций, ящитаю

~~esandmann~~
(30.04.14 11:06:41 MSK) автор топика

Ссылка

А во всех остальных достаточно сделать (setf (readtable-case *readtable*) :preserve) http://www.lispworks.com/documentation/lw51/CLHS/Body/23_aba.htm

monk ★★★★★
(30.04.14 11:12:02 MSK)
Последнее исправление: monk 30.04.14 11:12:14 MSK (всего исправлений: 1)

Ответ на: комментарий от monk 30.04.14 11:12:02 MSK

Черт, всё таки такое есть в стандарте. Зато тут можно делать более тонкую регулировку через пакеты.

~~esandmann~~
(30.04.14 11:17:31 MSK) автор топика

Ссылка

(in-package :foo)
(defvar *a* 1)
(defvar *A* 2)

> (eq 'foo::*a* (find-symbol "*A*" :foo))
T
> (eq 'foo::*a* (find-symbol "*a*" :foo))
NIL

Внезапно...

monk ★★★★★
(30.04.14 12:49:14 MSK)

Ответ на: комментарий от monk 30.04.14 12:49:14 MSK

Он их инвертирует зачем то. Как :invert по твоей ссылке

~~esandmann~~
(30.04.14 13:23:02 MSK) автор топика

Ответ на: комментарий от esandmann 30.04.14 13:23:02 MSK

Он их инвертирует зачем то

Это я понял. Но не понял, зачем он это делает...

monk ★★★★★
(30.04.14 13:24:43 MSK)

Ответ на: комментарий от monk 30.04.14 13:24:43 MSK

just for lulz, небось.

Вообще исходники clisp'а это что-то! Есть пару файлов по 18000+ строк, ужос

~~esandmann~~
(30.04.14 13:30:00 MSK) автор топика

Ссылка

Ответ на: комментарий от monk 30.04.14 13:24:43 MSK

О, я понял. Чтобы сохранить совместимость с обычным поведением ридера. Обычно пишут маленькими буквами и при этом ожидают, что имена будут большими

~~esandmann~~
(30.04.14 13:41:11 MSK) автор топика

Ссылка

Ответ на: комментарий от monk 30.04.14 13:24:43 MSK

Это я понял. Но не понял, зачем он это делает...

Эхо древних времён, когда компьютеры были маленькие, расстояния между ними --- большими, и чтобы докричаться друг до друга приходилось всё время пользоваться капслоком...

Точнее, раньше было принято программы писать в uppercase, наверное, потому что они часто сначала писались от руки и только потом вводились в машину, а ещё печатались на терминалах, в которых были только большие буквы.

Jini ★★
(30.04.14 14:03:23 MSK)

Ответ на: комментарий от Jini 30.04.14 14:03:23 MSK

Ты, конечно, проканал за умного, но тока не совсем понятно, нахера ты приплел то что было раньше к тому, что есть сейчас.

anonymous
(30.04.14 14:19:27 MSK)

Ссылка

Держите нас в курсе

buddhist ★★★★★
(30.04.14 15:09:18 MSK)

Ответ на: комментарий от buddhist 30.04.14 15:09:18 MSK

Хорошо.

А вот вы знали, что будет, если в clisp попытаться переопределить константу вот так:

(defconstant +a+ '(1 2 3))
(defconstant +a+ '(1 2 3))

Воот!

~~esandmann~~
(30.04.14 15:31:30 MSK) автор топика

Ответ на: комментарий от esandmann 30.04.14 15:31:30 MSK

Так в любом лиспе предупреждение будет. Ведь список новый. Что гораздо хуже — (setf (car +a+) 4) тоже везде работает. Поэтому толк от defconstant на чём-то кроме символов и чисел сомнительный.

monk ★★★★★
(01.05.14 13:11:24 MSK)

Ответ на: комментарий от monk 01.05.14 13:11:24 MSK

Не-не. clisp предложит отключить варнинг (через переменную *suppress-similar-constant-redefinition-warning*) при «похожих» данных (типа такого списка).

~~esandmann~~
(01.05.14 13:27:23 MSK) автор топика