(not (find-definition-sources-by-name 'fboundp :type))
t)
+(deftest find-source-stuff.31
+ (matchp-name :function 'cl-user::compile-time-too-fun 28)
+ t)
+
+(deftest find-source-stuff.32
+ (matchp-name :function 'cl-user::loaded-as-source-fun 3)
+ t)
+
;;; Check wrt. interplay of generic functions and their methods.
(defgeneric xuuq (gf.a gf.b &rest gf.rest &key gf.k-X))
(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))))
- t #+nil t)
+ t t)
;; Local functions
'(function ((member nil t)
fixnum fixnum
&key (:k1 (member nil t)))
- *)))
+ (values (member nil t) &optional))))
t t)
;; Misc