Существует такой код
(defun make-test-bar-chart-drawing-object
(&key (pane-title "Example of a bar chart")
title-position
(values *example-bar-chart-values*)
(orientation :upward)
(title-color :purple)
ellipses
(colors '(:red :green :blue :black :purple))).....)
(defun make-test-bar-chart-drawing-object
(&key ((:pane-title pane-title) "Example of a bar chart")
((:title-position title-position))
((:values values) "*example-bar-chart-values*")
((:orientation orientation) ":upward")
((:title-color title-color) ":purple")
((:ellipses ellipses))
((:colors colors) "'(:red :green :blue :black :purple)"))
(values
(format nil "pane-title ~A" pane-title)
(format nil "title-position ~A" title-position)
(format nil "values ~A" values)
(format nil "orientation ~A" orientation)
(format nil "title-color ~A" title-color)
(format nil "ellipses ~A" ellipses)
(format nil "colors ~A" colors)))
(make-test-bar-chart-drawing-object
:pane-title pane-title
:title-position "title-position"
:values :values
:orientation :orientation
:title-color :title-color
:ellipses "ellipses"
:colors :colors)
"pane-title PANE-TITLE" здесь не норм
"title-position title-position"
"values VALUES" здесь не норм
"orientation ORIENTATION" здесь не норм
"title-color TITLE-COLOR" здесь не норм
"ellipses ellipses"
"colors COLORS" здесь не норм