From 5be82d7cb89bb997fb28f2db09ee9ddb9fa9b5ed Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 9 Mar 2007 07:30:03 +0000 Subject: [PATCH] r11564: --- cluck.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/cluck.lisp b/cluck.lisp index ba30b44..dff957e 100644 --- a/cluck.lisp +++ b/cluck.lisp @@ -5,7 +5,7 @@ ;;;; Name: cluck.asd ;;;; Purpose: Common Lisp uControler Clock Calculator ;;;; Programmer: Kevin M. Rosenberg -;;;; Date Started: March 207 +;;;; Date Started: March 2007 ;;;; ;;;; $Id$ ;;;; @@ -36,7 +36,7 @@ ;;;; SUCH DAMAGE. ;;;; ************************************************************************* -(defpackage cluck +(defpackage #:cluck (:use #:cl) (:export #:show-timers @@ -53,7 +53,6 @@ (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) @@ -119,7 +118,8 @@ controllers, 32-bit timers use 8-bit prescalers" (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 -- 2.34.1