lab6

(setf (get 'car 'model) 'ford
      (get 'car 'motor) 'engine
      (get 'engine 'horse_power) 340
      (get 'engine 'cylinders) 8
      (get 'car 'seats) 4
      (get 'car 'wheels) 4
      (get 'car 'trunk) 'trunk
      (get 'trunk 'capacity) 50
      (get 'trunk 'content) nil
)
NIL

(defun put_in_trunk (L)
  (cond ((eql (get 'trunk 'content) NIL) (setf (get 'trunk 'content)  L))
        (T (setf (get 'trunk 'content) (append (get 'trunk 'content) L)))
        )
  )

PUT_IN_TRUNK

(get 'trunk 'content)
NIL

(put_in_trunk '(shardblade shardplate soulcaster))


(put_in_trunk '(Kaladin Syl Rock Teft Chull_Dung Lopen))

(defun get_from_trunk (item)
  (cond ((null item) nil)
        ((null (get 'trunk 'content)) nil)
        (T (mapcar (lambda (i)
                  (cond ((null i) nil)
                        ((null (member i (get 'trunk 'content))) nil)
                        (T (delete i (get 'trunk 'content)))
                        ))
                  item))
     )
  )
GET_FROM_TRUNK

(get_from_trunk '(Teft))
((SHARDBLADE SHARDPLATE SOULCASTER KALADIN SYL ROCK CHULL_DUNG LOPEN))
(get_from_trunk '(Rock Chull_dung))
((SHARDBLADE SHARDPLATE SOULCASTER KALADIN SYL LOPEN) (SHARDBLADE SHARDPLATE SOULCASTER KALADIN SYL LOPEN))
(SHARDBLADE SHARDPLATE SOULCASTER KALADIN SYL LOPEN)
(get_from_trunk '(Syl Lopen))
((SHARDBLADE SHARDPLATE SOULCASTER KALADIN) (SHARDBLADE SHARDPLATE SOULCASTER KALADIN))
(put_in_trunk '(Syl))
(SHARDBLADE SHARDPLATE SOULCASTER KALADIN SYL)
(SHARDBLADE SHARDPLATE SOULCASTER KALADIN SYL)