Function

Package

link-load

Signature

lisp-name-to-foreign-name name &key language

Arguments

name

A symbol representing a Lisp name. (Strings are passed unchanged through the function.)

language

If :C then an equivalent `C' name is produced. :FORTRAN is an alternative.

Description

This function provides an equivalent foreign name for a Lisp name, depending on the keyword language.

Values

A string is returned which is a foreign equivalent of the Lisp name supplied. If name is a string, the function returns the string unchanged. If language is a symbol, the `C' version replaces occurrences of `-' with `_' and adds a leading underscore. The Fortran version replaces occurrences of `-' with `_' and adds a leading and trailing underscore.

Example

(lisp-name-to-foreign-name 'lisp-name-with-hyphens)

"_lisp_name_with_hyphens"

See also

get-foreign-symbol