<<>> <> <> <> <<>> (if (environment-bound? user 'make-pcedar-package) #t (load "PCedarMaker")) (define PrintColor-interfaces '("HBrick" "PrintColor" "CustomBrick" "ImagerPrintColor" "ImagerPrintContext")) (define PrintColor-impls '("HBrickImpl" "CustomBrickImpl" "ImagerPrintColorImpl" "ImagerPrintContextImpl")) (define (make-PrintColor interfaces? impls? models) (and (make-pcedar-package interfaces? PrintColor-interfaces impls? PrintColor-impls "PrintColorPackage" models ) (make-pcedar-package interfaces? '() impls? '("SchemePrintColorImpl") #f models ) ) )