projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.19.35: Fix PARSE-, NATIVE-NAMESTRING for logical pathnames.
[sbcl.git]
/
tests
/
defstruct.impure.lisp
diff --git
a/tests/defstruct.impure.lisp
b/tests/defstruct.impure.lisp
index
3549268
..
be0c7e8
100644
(file)
--- a/
tests/defstruct.impure.lisp
+++ b/
tests/defstruct.impure.lisp
@@
-737,3
+737,8
@@
(assert (eql #c(5.0 5.0) (constant-arg-inits-f foo)))
(assert (eql #c(6.0d0 6.0d0) (constant-arg-inits-g foo)))))
(make-constant-arg-inits)
(assert (eql #c(5.0 5.0) (constant-arg-inits-f foo)))
(assert (eql #c(6.0d0 6.0d0) (constant-arg-inits-g foo)))))
(make-constant-arg-inits)
+
+;;; bug reported by John Morrison, 2008-07-22 on sbcl-devel
+(defstruct (raw-slot-struct-with-unknown-init (:constructor make-raw-slot-struct-with-unknown-init ()))
+ (x (#:unknown-function) :type double-float))
+