Семантическая сеть на Common Lisp

  • Автор темы Eskimo
  • Дата начала
E

Eskimo

Гость
#1
Имеется семантическая сеть

(setf (get 'portdev 'shell) 'plastic)

(setf (get 'netbook 'isa) 'portdev)
(setf (get 'netbook 'archit) 'cisc)
(setf (get 'netbook 'lasts) '10hrs)
(setf (get 'netbook 'cpu) 'atom)
(setf (get 'netbook 'ram) '1024)
(setf (get 'AspireOne 'isa) 'netbook)
(setf (get 'EEEPC 'isa) 'netbook)

(setf (get 'slate 'archit) 'risc)
(setf (get 'slate 'ram) '256)
(setf (get 'slate 'isa) 'portdev)

(setf (get 'ipad 'isa) 'slate)
(setf (get 'ipad 'cpu) 'A8)
(setf (get 'ipad 'lasts) '9hrs)

(setf (get 'archos101 'isa) 'slate)
(setf (get 'archos101 'cpu) 'A8)
(setf (get 'archos101 'ram) '512)
(setf (get 'archos101 'lasts) '10hrs)
(setf (get 'archos101 'shell) 'aluminium)

(setf (get 'haipad 'isa) 'slate)
(setf (get 'haipad 'cpu) 'telechips)
(setf (get 'haipad 'lasts) '5hrs)

(setf (get 'eken 'isa) 'slate)
(setf (get 'eken 'cpu) 'rockchip)
(setf (get 'eken 'lasts) '4hrs)
Сложный вопрос: необходимо вывести все объекты, которые являются нетбуками ('isa 'notebook)
Вопрос: как это реализовать, чтобы работало?
Мой
(get-from-parents (car ‘notebook) ‘isa)
Ругается и не выводит
AspireOne
EEEPC