(
setf
(get
'aastha '
age )
20
)
;using
setf
(which understands get as a place description)
;to create indicator age with value
20
of symbol aastha.
(
setf
(get
'aastha '
occupation ) 'doctor)
;using
setf
(which understands get as a place description)
;to create indicator occupation with value doctor of symbol aastha.
(
setf
(get
'aastha '
fav
-
book ) 'harrypotter)
;using
setf
(which understands get as a place description)
;to create indicator fav
-
book with value harrypotter of symbol aastha.
(write (symbol
-
plist 'aastha))
;using symbol
-
plist to return aastha(symbol's) plist .
(terpri)
(remprop
'aastha '
fav
-
book)
;using remprop to remove property of symbol aastha
;which has indicator fav
-
book
(write (symbol
-
plist 'aastha))
(terpri)
(setq x '())
(
setf
(getf x 'height )
20
)
;using
setf
along with getf to set property of
;indicator height as
20
at place x
(write(
eq
(getf x 'height)
20
))
;using
eq
to check
if
property of
;indicator height at place x is
20
(terpri)
(remf x 'height)
;using remf to remove property
;of indicator height at place x
(write(
eq
(getf x 'height)
20
))