combining two variables into one function name in macro

Question

I was toying around with macros and clos, where I created an \"object\" macro to create instances

(defmacro object (class &rest args)
  `(make-instance \         


        

Answer 1

This function creates symbols from string designators:

(defun symb (&rest args)
  (intern (format nil "~{~a~^-~}" (mapcar #'string args))))

The function uses format, yet passes Joshua's test:

CL-USER> (symb 'foo :bar "BAZ")
FOO-BAR-BAZ
NIL
CL-USER> (defun foo-bar ()
           (print 'hello))
FOO-BAR
CL-USER> (foo-bar)

HELLO 
HELLO
CL-USER> (setf *print-case* :capitalize)
:Capitalize
CL-USER> (funcall (symb 'foo 'bar))

Hello 
Hello