(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)))

(defgeneric dishes (obj)

(:method-combination progn)
;;;^^^^ option is available at http://www.lispworks.com/documentation/lw70/CLHS/Body/m_defgen.htm#defgeneric


(:method progn (obj)
;;;^^^ а эта опция где описана. 


(format t "- clean and dry.~&"))
(:method progn ((obj person))
(format t "- bring a person's dishes~&"))
(:method progn ((obj child))
(format t "- bring the baby dishes~&")))

(defclass coloured ()
  (colour))

(defclass coloured-circle (circle coloured)
  ())

(defclass rectangle ()
  (height width))

(defclass circle ()
  (radius))

(defvar r)
(defmethod area-r ((r rectangle))
  (* (slot-value r 'height)
     (slot-value r 'width)))

(defvar c)
(defmethod area-c ((c circle))
  (* pi (expt (slot-value c 'radius) 2)))

(let ((r (make-instance 'rectangle)))
  (setf (slot-value r 'height) 2
	(slot-value r 'width) 3)
  (area-r r))

(let ((c (make-instance 'circle)))
	(setf (slot-value c 'radius) 4)
  (area-c c))

(defvar cc)
(let ((cc (make-instance 'coloured-circle)))
  (setf (slot-value cc 'radius) 9)
  (area-c cc))

CL-USER> (defvar cc)
CC
CL-USER> (let ((cc (make-instance 'coloured-circle)))
  (setf (slot-value cc 'radius) 9)
  (area-c cc))

254.46900494077323d0
CL-USER> (type-of cc)
; Evaluation aborted on #<UNBOUND-VARIABLE CC {100460B1B3}>. ->

 какова техника поиска, что я проморгал? 

(defpackage "APP"
  (:use :clim :clim-lisp)
  (:export "BUTTONS-MAIN"))

(in-package :APP)
(defvar arg)
(defun press (button)
  (accepting-values (*query-io* :own-window t)
    (format *query-io* "~A" arg)))
(defun squeeze (button)
  (accepting-values (*query-io* :own-window t)
    (format *query-io* "~A" arg)))

(define-application-frame buttons	;name
    ()					;superclasses
  ()					;slots
  ;; options
  (:panes (button 
	   (horizontally ()
	     (make-pane 'push-button
			:label "squeeze"
			:activate-callback #'squeeze)
	     (make-pane 'push-button
			:label "press"
			:activate-callback #'press))) 
	  (application			;pane name 
	   :application))		;pane type ... :application is an extended-stream-pane
  (:layouts (default			;layout name
	     (vertically ()		;layout macros
	       (1/8 button) (7/8 application)))
	    (alternate			;layout name
	     (horizontally ()		;layout macros
	       (1/8 button) (7/8 application)))))

(defun buttons-main ()
  (run-frame-top-level
   (make-application-frame 'buttons :height 10 :width 10)))

; file: ~/Documents/using-panes-layouts.lisp
; in: DEFUN PRESS
;     (DEFUN APP::PRESS (APP::BUTTON)
;       (CLIM:ACCEPTING-VALUES (*QUERY-IO* :OWN-WINDOW T)
;         (FORMAT *QUERY-IO* "~A" APP::ARG)))
; 
; caught STYLE-WARNING:
;   The variable BUTTON is defined but never used.<- BUTTON ;     используется в BUTTONS !!!!!!!!!!!!!
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

; file: ~/Documents/using-panes-layouts.lisp
; in: DEFUN SQUEEZE
;     (DEFUN APP::SQUEEZE (APP::BUTTON)
;       (CLIM:ACCEPTING-VALUES (*QUERY-IO* :OWN-WINDOW T)
;         (FORMAT *QUERY-IO* "~A" APP::ARG)))
; 
; caught STYLE-WARNING:
;   The variable BUTTON is defined but never used. <- BUTTON ;     используется в BUTTONS !!!!!!!!!!!!!
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
T

$ ./lx86cl64 --version
Version 1.12 (v1.12) LinuxX8664

(ql:quickload "scigraph")
(in-package :graph)
(setq raw-data '((0 0) (1 -1.5) (2 3) (3 22) (4 8) (5 22)))
(setq dataset (make-instance 'graph-data
:symbologies '(:line-symbol)
:data raw-data))
(setq graph
(make-instance 'annotated-graph
:title "Some Data"
:x-label "Fortnights"
:y-label "Furlongs"))
(add-dataset graph dataset)
(view-graphs (list graph))

Stream #<BASIC-FILE-BINARY-INPUT-STREAM ("/usr/share/fonts/truetype/dejavu/DejaVuSansMono.ttf"/7 ISO-8859-1) #x302005C8D58D> is private to #<PROCESS Frame Top Level(14) [Reset] #x302005C73FED>
   [Condition of type SIMPLE-ERROR]