projects
/
cluck.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6ff14a3
)
r11564:
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Fri, 9 Mar 2007 07:30:03 +0000
(07:30 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Fri, 9 Mar 2007 07:30:03 +0000
(07:30 +0000)
cluck.lisp
patch
|
blob
|
history
diff --git
a/cluck.lisp
b/cluck.lisp
index ba30b44b8d480a84ec682358f35b84a795560ea8..dff957e8d377fcc501e3c257c9d05079bd4e4aa3 100644
(file)
--- a/
cluck.lisp
+++ b/
cluck.lisp
@@
-5,7
+5,7
@@
;;;; Name: cluck.asd
;;;; Purpose: Common Lisp uControler Clock Calculator
;;;; Programmer: Kevin M. Rosenberg
;;;; Name: cluck.asd
;;;; Purpose: Common Lisp uControler Clock Calculator
;;;; Programmer: Kevin M. Rosenberg
-;;;; Date Started: March 207
+;;;; Date Started: March 20
0
7
;;;;
;;;; $Id$
;;;;
;;;;
;;;; $Id$
;;;;
@@
-36,7
+36,7
@@
;;;; SUCH DAMAGE.
;;;; *************************************************************************
;;;; SUCH DAMAGE.
;;;; *************************************************************************
-(defpackage cluck
+(defpackage
#:
cluck
(:use #:cl)
(:export
#:show-timers
(:use #:cl)
(:export
#:show-timers
@@
-53,7
+53,6
@@
(defvar *f-cpu* 16000000)
(defvar *8-bit-prescalars* '(1 8 64 256))
(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)
(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
(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
(defun avr-uart-divisors (&optional (f-cpu *f-cpu*) (view-below-percent nil))
"Displays the divisor UBRR and error percent for various baud