[Openmcl-devel] a function to create a symbol in a given package

[Taoufik Dachraoui]

Hi

I tried but could not find a way to create a function that creates a  
symbol in a given package.

I woud appreciate if someone can helpp me write the following function:

(defun crate-symbol-in-package (symbol value package)
   .....)

example of use:

? *package*
COMMON-LISP-USER
? (create-symbol-in-package 'client  'me 'world)
WORLD:CLIENT
? world::client
'ME


Kind regards

-Taoufik