Christophe
Weblog
Wiki
Code
Publications
Music
projects
/
specializable.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9dd8f13
)
fix for non-default *READ-DEFAULT-FLOAT-FORMAT* in examples/cons-specializer.lisp
author
Jan Moringen
<jmoringe@techfak.uni-bielefeld.de>
Sun, 18 May 2014 21:23:43 +0000
(23:23 +0200)
committer
Christophe Rhodes
<csr21@cantab.net>
Thu, 22 May 2014 09:08:14 +0000
(10:08 +0100)
examples/cons-specializer.lisp
patch
|
blob
|
history
diff --git
a/examples/cons-specializer.lisp
b/examples/cons-specializer.lisp
index 38be99d129176cf17d711b5507706e23b50aed3e..5fcd906743c5aeaa7de7784f49e29601e13e0fa0 100644
(file)
--- a/
examples/cons-specializer.lisp
+++ b/
examples/cons-specializer.lisp
@@
-117,8
+117,8
@@
(assert (= (keyword-args 1.0 :key1 t) 3.0))
(assert (= (keyword-args 1.0 :key3 t) 3.0))
(assert (= (keyword-args 1.0 :key1 t :key3 t) 3.0))
(assert (= (keyword-args 1.0 :key1 t) 3.0))
(assert (= (keyword-args 1.0 :key3 t) 3.0))
(assert (= (keyword-args 1.0 :key1 t :key3 t) 3.0))
- (assert (nth-value 1 (ignore-errors (keyword-args 1.0 :key1 t :key2 t))))
- (assert (nth-value 1 (ignore-errors (keyword-args 1.0 :key2 t))))
+ (assert (nth-value 1 (ignore-errors (keyword-args 1.0
f0
:key1 t :key2 t))))
+ (assert (nth-value 1 (ignore-errors (keyword-args 1.0
f0
:key2 t))))
(assert (= (keyword-args 1.0 :key2 t :allow-other-keys t) 3.0))
(assert (= (keyword-args 1.0d0) 3.0d0))
(assert (= (keyword-args 1.0 :key2 t :allow-other-keys t) 3.0))
(assert (= (keyword-args 1.0d0) 3.0d0))