projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.44.25: don't put function leaves into the source-path when a name is available
[sbcl.git]
/
contrib
/
sb-introspect
/
test-driver.lisp
diff --git
a/contrib/sb-introspect/test-driver.lisp
b/contrib/sb-introspect/test-driver.lisp
index
0a8abaf
..
0ce7187
100644
(file)
--- a/
contrib/sb-introspect/test-driver.lisp
+++ b/
contrib/sb-introspect/test-driver.lisp
@@
-378,12
+378,10
@@
(deftest function-type.2
(values (type-equal (function-type 'sun) (function-type #'sun))
(deftest function-type.2
(values (type-equal (function-type 'sun) (function-type #'sun))
- ;; Does not currently work due to Bug #384892. (1.0.31.26)
- #+nil
(type-equal (function-type #'sun)
'(function (fixnum fixnum &key (:k1 (member nil t)))
(values (member t) &optional))))
(type-equal (function-type #'sun)
'(function (fixnum fixnum &key (:k1 (member nil t)))
(values (member t) &optional))))
- t #+nil t)
+ t t)
;; Local functions
;; Local functions
@@
-516,7
+514,7
@@
'(function ((member nil t)
fixnum fixnum
&key (:k1 (member nil t)))
'(function ((member nil t)
fixnum fixnum
&key (:k1 (member nil t)))
- *)))
+ (values (member nil t) &optional))))
t t)
;; Misc
t t)
;; Misc