LispForum

Never mind i solved my self. :) like that: (DEFUN make-bike(nm name1 produce1 sell1 price1) (SETF (GET nm 'name) name1) (SETF (GET nm 'produce) produce1) (SETF (GET nm 'sell) sell1) (SETF (GET nm 'price) price1) nm ) (SETQ I ( LIST (make-bike 'n1234 '(Mountine) 11 5 330 ) (make-bike 'n2345 '(Sprinte...

So I need help i have to show to my teacher a LISP program for factory for bikes and we have the following information for each type of bike: number of the model - nm name of the model - name amount that is produced of this model - produce amount that is sold of this product - sell single prduct pri...