- (etypecase name
- (list
- (destructuring-bind (name &key c-name options) name
- (if c-name
- c-name
- (cond #+largefile
- ((or (eql options :largefile)
- (member :largefile options))
- (format nil "~a_largefile" name))
- (t
- name)))))
- (string
- name)))
+ (let ((maybe-name
+ (etypecase name
+ (list
+ (destructuring-bind (name &key c-name options) name
+ (if c-name
+ c-name
+ (cond #+largefile
+ ((or (eql options :largefile)
+ (member :largefile options))
+ (format nil "~a_largefile" name))
+ (t
+ name)))))
+ (string
+ name))))
+ (if (member maybe-name *c-functions-in-runtime*
+ :test #'string=)
+ (format nil "_~A" maybe-name)
+ maybe-name)))