putprop and get-programmingraja

 

Aim: Write a lisp code to use property list (putprop and get) and exhibit the use of setf function.

Software Used: GNU COMMON LISP

coding:

>(defun putprop (symbol mewvalue indicator)

(setf (get symbol indicator) newvalue))

PUTPROP

>(setf (get 'Ekta 'age) 21)

AGE

> (putprop 'Ekta 'AI 'Class)

CLASS

>(get 'Ekta 'age)

21

OUTPUT :