;;;; Name: cluck.asd
;;;; Purpose: Common Lisp uControler Clock Calculator
;;;; Programmer: Kevin M. Rosenberg
-;;;; Date Started: March 207
+;;;; Date Started: March 2007
;;;;
;;;; $Id$
;;;;
;;;; SUCH DAMAGE.
;;;; *************************************************************************
-(defpackage cluck
+(defpackage #:cluck
(:use #:cl)
(:export
#:show-timers
(defvar *f-cpu* 16000000)
(defvar *8-bit-prescalars* '(1 8 64 256))
-
(defvar *10-bit-prescalars* '(1 8 64 256 1024))
(defvar *base-error-zero-baud-clk* (* 9 25 8192)
(ms-timer-width ms f-cpu *10-bit-prescalars* width)))
(defparameter *baud-rates* '(300 600 1200 2400 4800 9600 14400 19200 28800
- 38400 56000 57600 76800 115200 128000 250000 256000 500000))
+ 38400 56000 57600 76800 115200 128000 250000
+ 256000 500000))
(defun avr-uart-divisors (&optional (f-cpu *f-cpu*) (view-below-percent nil))
"Displays the divisor UBRR and error percent for various baud