r11564:
authorKevin M. Rosenberg <kevin@rosenberg.net>
Fri, 9 Mar 2007 07:30:03 +0000 (07:30 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Fri, 9 Mar 2007 07:30:03 +0000 (07:30 +0000)
cluck.lisp

index ba30b44b8d480a84ec682358f35b84a795560ea8..dff957e8d377fcc501e3c257c9d05079bd4e4aa3 100644 (file)
@@ -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