Я взламываю старую программу на Лиспе, которая когда-то компилировалась и работала на Franz LISP, как утверждается. Но Franz LISP слишком стар, поэтому я пробую компилятор CLISP. Однако в CLISP нет putprop.
Я понимаю, что мог бы написать функцию, которая делает то же самое, что и putprop, но на случай, если мне придется выполнять дальнейшие переводы, мне интересно: в каких версиях Lisp есть putprop?
у MACLISP это было. Поскольку Franz Lisp, как сообщается, похож на MACLISP, существует не-zerop вероятность того, что Примечания по преобразованию MACLISP/Zetalisp в Common Lisp могут помочь вам получить код, с которым вы работаете, для запуска. современная реализация Common Lisp.
Удачи!
Эквивалентная функциональность обеспечивается в Common Lisp комбинацией SETF и GET.
CL-USER 1 > (setf (get 'foo :bar) :baz)
:BAZ
CL-USER 2 > (get 'foo :bar)
:BAZ
Portable Standard Lisp также имеет его, как и Interlisp. Причина, по которой Common Lisp этого не делает, вероятно, из-за отвратительного SETF, который вы не должны трогать шестом, так как он деструктивно изменяет структуры данных. Однако, вероятно, putprop в других устаревших Лиспах также работает путем деструктивной модификации, поэтому, если вы хотите реализовать putprop, вы можете это сделать:
(defmacro putprop (var prop val)
`(setf (get ,var ,prop) ,val))
насколько я помню, в Scheme есть putprop; но вы называете это LISP?
