+ '(cl-user::a cl-user::b cl-user::c)))
+(assert (equal (function-arglist 'the)
+ '(type sb-c::value)))
+
+(let ((source (find-definition-source 'cl-user::one)))
+ (assert (= (definition-source-file-write-date source)
+ (file-write-date (merge-pathnames "test.lisp" *load-pathname*))))
+ (assert (equal (getf (definition-source-plist source) :test-outer)
+ "OUT")))
+
+(let ((plist (definition-source-plist (find-definition-source 'cl-user::four))))
+ (assert (equal (getf plist :test-outer) "OUT"))
+ (assert (equal (getf plist :test-inner) "IN")))