projects
/
umlisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
135cbbc
)
r11484: microoptimize srl-to-srlus
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Mon, 8 Jan 2007 15:24:36 +0000
(15:24 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Mon, 8 Jan 2007 15:24:36 +0000
(15:24 +0000)
parse-rrf.lisp
patch
|
blob
|
history
diff --git
a/parse-rrf.lisp
b/parse-rrf.lisp
index 9a1c4fe78a3df32d67ed917e05578b7a825cfb5a..e5536a979f44d87c49e03fcfee13d6400cf721a1 100644
(file)
--- a/
parse-rrf.lisp
+++ b/
parse-rrf.lisp
@@
-30,8
+30,9
@@
Specifically, SRL 4 in the USA has license restrictions between SRL 1 and 2 when
used in the United States. We create a new scale (SRLUS) where SRL to SRLUS mapping is:
(0->0, 1->1, 4->2, 2->3, 3->4)."
Specifically, SRL 4 in the USA has license restrictions between SRL 1 and 2 when
used in the United States. We create a new scale (SRLUS) where SRL to SRLUS mapping is:
(0->0, 1->1, 4->2, 2->3, 3->4)."
- (declare (
fixnum
srl))
+ (declare (
type (integer 0 100)
srl))
(cond
(cond
+ ((<= srl 1) srl)
((= srl 4) 2)
((= srl 2) 3)
((= srl 3) 4)
((= srl 4) 2)
((= srl 2) 3)
((= srl 3) 4)