(in-package  :mibr)
(use-package '(:oli :cfn))

(dolist (item (sd-inq-configuration-positions (CFN-GET-ACTIVE-CONFIGURATION)))
	(when (sd-inq-part-p (first item)) (display (format nil "Einzelteil ~a" (sd-inq-obj-basename (first item)))))
	(when (sd-inq-assembly-p (first item)) (display (format nil "Baugruppe ~a" (sd-inq-obj-basename (first item)))))
)