Skip to content
Permalink
Fetching contributors…
Cannot retrieve contributors at this time
9 lines (7 sloc) 386 Bytes
;; ------------------------------------------------
;; 5.9-read-loan-inventory
;; ------------------------------------------------
;; define a function named read-loan-inventory that takes no parameters
(defun read-loan-inventory ()
;; map the value of read-inventory-pair to the keys of the loan-inventory-table
(map (read-inventory-pair) (keys loan-inventory-table)))
You can’t perform that action at this time.