decrease the delay after moving the mirror

(44 25 11 14 7 2014 0 NIL 0)

Number of samples:   33
Sample interval:     0.01 seconds
Total sampling time: 0.32999998 seconds
Number of cycles:    0
Sampled threads:
 #<SB-THREAD:THREAD "worker" RUNNING {1012554973}>

           Self        Total        Cumul
  Nr  Count     %  Count     %  Count     %    Calls  Function
------------------------------------------------------------------------
   1     12  36.4     12  36.4     12  36.4        -  "foreign function __nanosleep"
   2      8  24.2      8  24.2     20  60.6        -  "foreign function syscall"
   3      6  18.2      6  18.2     26  78.8        -  (FLET #:CLEANUP-FUN-586 :IN SB-THREAD::CALL-WITH-SYSTEM-MUTEX)
   4      2   6.1      2   6.1     28  84.8        -  (FLET #:CLEANUP-FUN-1300 :IN SB-THREAD:JOIN-THREAD)
   5      1   3.0     11  33.3     29  87.9        -  SB-THREAD:JOIN-THREAD
   6      1   3.0      2   6.1     30  90.9        -  SB-IMPL::REFILL-INPUT-BUFFER
   7      1   3.0      1   3.0     31  93.9        -  SB-VM::GENERIC-+
   8      1   3.0      1   3.0     32  97.0        -  "foreign function ioctl"
   9      1   3.0      1   3.0     33 100.0        -  "foreign function __poll"
  10      0   0.0     33 100.0     33 100.0        -  "Unknown component: #x10126780D0"
  11      0   0.0     33 100.0     33 100.0        -  SB-EXT:CALL-WITH-TIMING
  12      0   0.0     33 100.0     33 100.0        -  SB-INT:SIMPLE-EVAL-IN-LEXENV
  13      0   0.0     33 100.0     33 100.0        -  EVAL
  14      0   0.0     33 100.0     33 100.0        -  (LAMBDA NIL :IN SWANK:INTERACTIVE-EVAL)
  15      0   0.0     33 100.0     33 100.0        -  SWANK::CALL-WITH-RETRY-RESTART
  16      0   0.0     33 100.0     33 100.0        -  SWANK::CALL-WITH-BUFFER-SYNTAX
  17      0   0.0     33 100.0     33 100.0        -  SWANK:EVAL-FOR-EMACS
  18      0   0.0     33 100.0     33 100.0        -  (LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD)
  19      0   0.0     33 100.0     33 100.0        -  SWANK-BACKEND::CALL-WITH-BREAK-HOOK
  20      0   0.0     33 100.0     33 100.0        -  (FLET SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/home/martin/quicklisp/dists/quicklisp/software/slime-2.7/swank-sbcl.lisp")
  21      0   0.0     33 100.0     33 100.0        -  SWANK::CALL-WITH-BINDINGS
  22      0   0.0     33 100.0     33 100.0        -  (FLET #:WITHOUT-INTERRUPTS-BODY-1210 :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE)
  23      0   0.0     33 100.0     33 100.0        -  (FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE)
  24      0   0.0     33 100.0     33 100.0        -  (FLET #:WITHOUT-INTERRUPTS-BODY-645 :IN SB-THREAD::CALL-WITH-MUTEX)
  25      0   0.0     33 100.0     33 100.0        -  SB-THREAD::CALL-WITH-MUTEX
  26      0   0.0     33 100.0     33 100.0        -  SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE
  27      0   0.0     33 100.0     33 100.0        -  "foreign function call_into_lisp"
  28      0   0.0     33 100.0     33 100.0        -  "foreign function new_thread_trampoline"
  29      0   0.0     32  97.0     33 100.0        -  RUN-RAW
  30      0   0.0      8  24.2     33 100.0        -  SB-THREAD::%%WAIT-FOR-MUTEX
  31      0   0.0      8  24.2     33 100.0        -  SB-THREAD::%WAIT-FOR-MUTEX
  32      0   0.0      8  24.2     33 100.0        -  (FLET #:WITHOUT-INTERRUPTS-BODY-1286 :IN SB-THREAD:JOIN-THREAD)
  33      0   0.0      6  18.2     33 100.0        -  SB-THREAD::CALL-WITH-SYSTEM-MUTEX
  34      0   0.0      6  18.2     33 100.0        -  SB-THREAD:MAKE-THREAD
  35      0   0.0      6  18.2     33 100.0        -  ARDUINO-SERIAL-SBCL:TALK-ARDUINO
  36      0   0.0      3   9.1     33 100.0        -  SLEEP
  37      0   0.0      2   6.1     33 100.0        -  SB-IMPL::INPUT-CHAR/ASCII
  38      0   0.0      2   6.1     33 100.0        -  READ-CHAR
  39      0   0.0      2   6.1     33 100.0        -  ARDUINO-SERIAL-SBCL:READ-RESPONSE
  40      0   0.0      1   3.0     33 100.0        -  SB-IMPL::SYSREAD-MAY-BLOCK-P
------------------------------------------------------------------------
          0   0.0                                     elsewhere
(21 26 11 14 7 2014 0 NIL 0)
Evaluation took:
  37.625 seconds of real time
  4.367000 seconds of total run time (1.819000 user, 2.548000 system)
  11.61% CPU
  105,831,664,541 processor cycles
  3,255,408 bytes consed
add documentation for grab-store