AE
После того как переписал на более нормальный вариант.
Size: a a a
2021 February 13
AE
@webreh, можешь ещё в потёртые сообщения заглянуть.
AE
Вот примерно за 10 минут до этого.
AE
Был неплохой пример.
a
А какие ещё? Потому что я не смог найти других проблем.
Проблема при появлении любого символа с точкой в имени, не только символа с пакетом.
Поскольку символы могут появляться в коде неожиданным образом (макрораскрытие), это очень большая проблема.
Поскольку символы могут появляться в коде неожиданным образом (макрораскрытие), это очень большая проблема.
AE
Проблема при появлении любого символа с точкой в имени, не только символа с пакетом.
Поскольку символы могут появляться в коде неожиданным образом (макрораскрытие), это очень большая проблема.
Поскольку символы могут появляться в коде неожиданным образом (макрораскрытие), это очень большая проблема.
Ну тут да.
AE
Любое имя с точкой внутри становится проблемой.
AE
Стоп.
AE
Проблема при появлении любого символа с точкой в имени, не только символа с пакетом.
Поскольку символы могут появляться в коде неожиданным образом (макрораскрытие), это очень большая проблема.
Поскольку символы могут появляться в коде неожиданным образом (макрораскрытие), это очень большая проблема.
Но ридер работает раньше всех макросов.
AE
Поэтому символы, которые появятся внутри после, уже не будут обработаны ридером.
a
Но ридер работает раньше всех макросов.
Если речь о какой-то новой реализации, то я ее не смотрел.
AE
Если речь о какой-то новой реализации, то я ее не смотрел.
Нет, речь идёт о sbcl.
AE
Я смотрел только его.
AE
Ну и да, как ридер может работать после макросов? Ридер же читает строку, когда никаких форм ещё нет.
AE
А макроэкспандер работает с формами.
AE
CL-USER> (defclass foo () (a b c))
#<STANDARD-CLASS COMMON-LISP-USER::FOO>
CL-USER> (defmacro very-stupid-add (a b)
`(let ((first.num ,a)
(second.num ,b))
(+ first.num second.num)))
VERY-STUPID-ADD
CL-USER> (read-from-string "(let ((f (make-instance 'foo))) [foo.a setf (very-stupid-add 5 6)])")
(LET ((F (MAKE-INSTANCE 'FOO)))
(SETF (SLOT-VALUE FOO 'A) (VERY-STUPID-ADD 5 6)))
67 (7 bits, #x43, #o103, #b1000011)
CL-USER> (let ((f (make-instance 'foo)))
[f.a setf (very-stupid-add 5 6)]
(print [f.a]))
11
11 (4 bits, #xB, #o13, #b1011)
CL-USER>
2021 February 15
2021 February 20
KS
2021 February 21
KS
Система управления полетами в Германии в 90х была написана на Emacs Lisp:
https://www.reddit.com/r/emacs/comments/lly7po/do_you_use_emacs_lisp_as_a_general_purpose/gnvzisy/
https://www.reddit.com/r/emacs/comments/lly7po/do_you_use_emacs_lisp_as_a_general_purpose/gnvzisy/