73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
(list (car x)'()))
(let ((name (car x))
(items (cadr x)))
(list name (string-split items)))))
itemsdat))))
(let ((debuglevel 5))
(debug:print 5 "item-assoc->item-list: itemsdat => itemlst ")
(if (>= *verbosity* 5)
(begin
(pp itemsdat)
(print " => ")
(pp itemlst))))
(if (> (length itemlst) 0)
(process-itemlist #f '() itemlst)
'()))
|
|
|
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
(list (car x)'()))
(let ((name (car x))
(items (cadr x)))
(list name (string-split items)))))
itemsdat))))
(let ((debuglevel 5))
(debug:print 5 "item-assoc->item-list: itemsdat => itemlst ")
(if (debug:debug-mode 5)
(begin
(pp itemsdat)
(print " => ")
(pp itemlst))))
(if (> (length itemlst) 0)
(process-itemlist #f '() itemlst)
'()))
|