(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"                     здесь не норм

нужно создать окно
поводив в окне мышкой 
получаем кривую
окно сжимаем -> раскрываем, кривая не исчезла
окно сворачиваем -> разворачиваем, кривая не исчезла

(defun cached-display-draw-an-arrow  (pane x y width height)
  (declare (ignore x y width height))
  (when-let (dragging-info (capi:output-pane-cached-display-user-info pane))
    (destructuring-bind (center-x center-y end-x end-y)
        dragging-info    --------  >>>>>>>это место просто вышибает
      (let* ((diff-x (- end-x center-x))
             (diff-y (- end-y center-y))
             (len-square (+ (* diff-x diff-x) (* diff-y diff-y))))
        (when (> len-square 5) ;; don't try too short
          (let* ((len (sqrt len-square))
                 (angle (atan diff-y diff-x))
                 (scale (/ len 100)))
            (gp:with-graphics-translation (pane center-x center-y)
              (gp:with-graphics-rotation (pane angle)
                (gp:with-graphics-scale (pane scale 1)
                  (cached-display-internal-draw-an-arrow pane))))))))))

(destructuring-bind (parameter*) list
  body-form*) здесь всё понятно, а в
примере приведённом выше не могу понять где vars list form

(destructuring-bind (x y z) (list 1 2 3)
  (list :x x :y y :z z)) ==> (:X 1 :Y 2 :Z 3) 

The form

(when-let (position (search string1 string2))
   (print position))

macroexpands to

(let ((position (search string1 string2)))
   (when position
      (print position)))

lw-gt:objects-displayer
capi:pinboard-layout
capi:output-pane
         ^
         |_________________________
                                  |
lw-gt:apply-drawing-object        |
lw-gt:drawing-object              |
 ^                                |
 |                                |
standard-object ------------------
 ^
 |
 T

A (1 2 3 4 5)
B (6 7 8 9 10)
C (11 -12 13 -14 -15)

D (1 7 3 9 10)

(setq po
      (capi:contain
       (make-instance 'capi:arrow-pinboard-object
                      :start-x 50 :end-x 50
                      :start-y 50 :end-y 20
                      :graphics-args
                      '(:thickness 1 :foreground :red))))
;;I tried accessors

(pinboard-object-pinboard po)
;;=> #<CAPI:PINBOARD-LAYOUT  402001FCC3>
(pinboard-object-activep po)
;;=> T
(pinboard-object-graphics-args po)
;;=> (:THICKNESS 1 :FOREGROUND :RED)

#+clim - что это обозначает и далее #-clim-2 #+clim-2

(defvar *clim-clip-rectangle*
    #-clim-2 (make-rectangle* 0 0 1 1)
    #+clim-2 (make-bounding-rectangle 0 0 1 1)
  "Reused by with-clipping-internal to reduce consing.")

make-rectangle*                                                      [Function]
Arguments: x1 y1 x2 y2
Summary: Returns an object of class standard-rectangle whose edges are parallel to the coordinate axes. One corner is at the point point1 (or the position (x1, y1)) and the opposite corner is at the point point2 (or the position (x2, y2)). There are no
ordering constraints among point1 and point2 (or x1 and x2, and y1 and y2).


make-bounding-rectangle                               [Function]
Arguments: x1 y1 x2 y2
Summary: Returns an object of the class standard-bounding-rectangle with the edges specified by x1, y1, x2, and y2, which must be real numbers.

(LAMBDA (L)
	(PROG (L1 C)
	      (SETQ L1 L)
	      (SETQ C 0)
	      A (COND ((NULL L1) (RETURN C)))
	      (SETQ C (ADD1 C))
	      (SETQ L1 (REST L1))
	      (GO A)) '(1 2 3 4))

(PROG ((L1 '(1 2 3 4)) (C 0))
	      A (COND ((NULL L1) (RETURN C)))
	      (SETQ C (+ 1 C))
	      (SETQ L1 (REST L1))
	      (GO A))

4

(funcall (LAMBDA (L)
	(PROG (L1 C)
	      (SETQ L1 L)
	      (SETQ C 0)
	      A (COND ((NULL L1) (RETURN C)))
	      (SETQ C (+ 1 C))
	      (SETQ L1 (REST L1))
	      (GO A))) '(1 2 3 4))
4

800 * e^1 * K0(1) = 915º
800 * e^1 = 2174.6254627672480800 
2174.6254627672480800 * K0(1) = 915º Как это получилось?

Смотрю в таблицу "Функция Бесселя от мнимого аргумента второго рода, нулевого порядка" 10^3 * K0(u) = 4.2102.

pnt p1 8 0 675.21
pnt p2 963 0 675.21
pnt p3 8 52 675.21
pnt p4 963 52 675.21

pnt p5 8 0 667.21
pnt p6 963 0 667.21
pnt p7 8 52 667.21
pnt p8 963 52 667.21

line l1 p1 p2
line l2 p2 p4
line l3 p4 p3
line l4 p3 p1

line l5 p1 p5
line l6 p2 p6
line l7 p3 p7
line l8 p4 p8

line l9 p5 p6
line l10 p6 p8
line l11 p8 p7
line l12 p7 p5

pnt p9 0 0 675.21
pnt p10 0 52 675.21
pnt p11 0 52 0
pnt p12 8 52 0
pnt p13 8 0 0
pnt p14 0 0 0

line l13 p1 p9
line l14 p3 p10
line l15 p11 p12
line l16 p13 p14

line l17 p9 p10
line l18 p10 p11
line l19 p11 p14
line l20 p14 p9

line l21 p3 p12
line l22 p12 p13
line l23 p13 p1

pnt p15 971 0 675.21
pnt p16 971 52 675.21
pnt p17 971 52 0
pnt p18 971 0 0
pnt p19 963 0 0
pnt p20 963 52 0

line l24 p2 p15
line l25 p4 p16
line l26 p20 p17
line l27 p19 p18

line l28 p15 p16
line l29 p16 p17
line l30 p17 p18
line l31 p18 p15

line l32 p2 p19
line l33 p19 p20
line l34 p20 p4

pnt p21 963 52 8
pnt p22 8 52 8
pnt p23 8 0 8
pnt p24 963 0 8

line l35 p24 p19
line l36 p21 p20
line l37 p22 p12
line l38 p23 p13

line l39 p12 p20
line l40 p13 p19

line l41 p24 p21
line l42 p21 p22
line l43 p22 p23
line l44 p23 p24

pnt p25 963 8 8
pnt p26 8 8 8
pnt p27 8 8 667.21
pnt p28 963 8 667.21

line l45 p25 p26
line l46 p26 p27
line l47 p27 p28
line l48 p28 p25

gsur a1 + blend - l1 + l2 + l3 + l4
gsur a2 + blend + l5 + l6 + l7 + l8
gsur a3 + blend + l9 + l10 + l11 + l12
gsur a4 + blend + l13 + l14 + l15 + l16
gsur a5 + blend + l17 + l18 + l19 + l20
gsur a6 + blend + l4 + l21 + l22 + l23
gsur a7 + blend + l24 + l25 + l26 + l27
gsur a8 + blend + l28 + l29 + l30 + l31
gsur a9 + blend + l2 + l32 + l33 + l34
gsur a10 + blend + l35 + l36 + l37 + l38
gsur a11 + blend + l22 + l33 + l39 + l40
gsur a12 + blend + l41 + l42 + l43 + l44
gsur a13 + blend + l45 + l46 + l47 + l48

выдаёт такое

getstart1.fbd opened
 reading file
WARNING: surf not closed, no orientation possible
WARNING: orientSurf:a2 failed
WARNING: surf not closed, no orientation possible
WARNING: orientSurf:a4 failed
WARNING: surf not closed, no orientation possible
WARNING: orientSurf:a7 failed
WARNING: surf not closed, no orientation possible
WARNING: orientSurf:a10 failed
WARNING: surf not closed, no orientation possible
 ERROR: Orientation of surf:a2 failed
WARNING: surf not closed, no orientation possible
 ERROR: Orientation of surf:a4 failed
WARNING: surf not closed, no orientation possible
 ERROR: Orientation of surf:a7 failed
WARNING: surf not closed, no orientation possible
 ERROR: Orientation of surf:a10 failed
WARNING: 4 entities are unoriented, check set:-UORI
 done

и х.з. что делать.

(in-package :common-lisp-user)
(defpackage "WORD"
(:use :clim :clim-lisp)
(:export "WORD-MAIN"))
(in-package :word)
(define-application-frame word		;name
    ()					;superclasses
  ()					;slots
  ;; options
  (:panes				;panes option
   (title				;pane name 
    :title)	;pane type, такое, :title "bla bla", не пролезит
   (document				;pane name
    :application))			;pane type
  (:layouts				;layouts option
   (default				;layout name
       (vertically ()			;layout macros
	 (1/8 title)
	 (7/8 document)))))
(defun word-main ()
(run-frame-top-level (make-application-frame 'word :height 300 :width 300)))