a
Все функции, которыми я когда-либо пользовался из alexandria, работают неправильно. Кроме partial и with-gensyms.
Size: a a a
2020 December 07
a
ето просто фантастика
A
а пользовался aif
a
а пользовался aif
Для этого я не импортирую библиотеки.
Но куча анафорических макросов тоже неправильно работают, aif в т.ч.. Затеняет константу в false ветке.
Но куча анафорических макросов тоже неправильно работают, aif в т.ч.. Затеняет константу в false ветке.
a
Только не «затеняет константу в false» ветке, а «затеняет it в false ветке»
a
Корректный
Пример:
aif не елиспе, не затеняющий it в false-ветке(defmacro akater-misc-aif (test-form then-form &rest else-forms)
(declare (indent 2))
(let ((once-only (gensym "test-form-")))
`(let ((,once-only ,test-form))
(if ,once-only (let ((it ,once-only)) ,then-form)
(cl-locally ,@else-forms)))))
Пример:
(values (cl-flet ((find-broken-computer () 'computer)
(find-broken-component () 'component))
(aif (find-broken-computer)
(aif (find-broken-component)
`(repair ,it)
`(replace ,it))))
(cl-flet ((find-broken-computer () 'computer)
(find-broken-component () nil))
(aif (find-broken-computer)
(aif (find-broken-component)
`(repair ,it)
`(replace ,it)))))
;; =>
((repair component)
(replace computer))
y
А на какой языке там код? Scheme/CL/Что-то ещё?
ND
схема
2020 December 08
O
yosk
А на какой языке там код? Scheme/CL/Что-то ещё?
$30...
O
на абебукс еще нет
O
Если кто-то на StumpWM как решили проблему с гибераций?
O
Где можно найти 'list-of' и 'command-line-arguments' системы?
V(
Если кто-то на StumpWM как решили проблему с гибераций?
у меня там сон через gnome-screensaver-command -l
V(
Где можно найти 'list-of' и 'command-line-arguments' системы?
это что?
V(
а, хз
O
у меня там сон через gnome-screensaver-command -l
чет нет пакета/прогрммы такой (Fedora 33)
V(
ну тогда нужен аналог консольный
V(
и exec его