fuck-off.lisp

CL-USER> (print-name-of-function "Fuck off!!!")
FUCK-OFF
CL-USER> (fuck-off)
Fuck off!!!
"Fuck off!!!"
CL-USER> 

p-n-f.asd

(defpackage :print-name-of-function-system (:use :asdf :cl))
(in-package :print-name-of-function-system)

(defsystem p-n-f
  :name "p-n-f"
  :author ""
  :version ""
  :maintainer ""
  :licence ""
  :description ""
  :long-description ""
  :components
  ((:file "packages")
   (:file "print-name-of-function" :depends-on ("packages"))))

packages.lisp

(in-package :cl-user)

(defpackage :p-n-f
  (:use :common-lisp)
  (:export :print-name-of-function))

print-name-of-function.lisp

(in-package #:p-n-f)

(defmacro print-name-of-function (str)
  (let ((name (map 'string #'(lambda (x)
			       (if (string= x " ")
				   #\-
				   x))
		   (remove-if-not #'(lambda (x)
				      (or (string= x " ")
					  (and (string<= "A" x)
					       (string<= x "Z"))))
				  (string-upcase str)))))
    `(defun ,(intern name) ()
       (princ ,str))))

test-of-print-name-of-function.lisp

; loading system definition from /home/cametan/p-n-f.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM P-N-F {B3F2391}> as P-N-F

CL-USER> (use-package :p-n-f)
T
CL-USER> (macroexpand-1 '(print-name-of-function "Hello, World!"))
(DEFUN HELLO-WORLD () (PRINC "Hello, World!"))
T
CL-USER> (print-name-of-function "Hello, World!")
HELLO-WORLD
CL-USER> (hello-world)
Hello, World!
"Hello, World!"
CL-USER> (symbol-package 'hello-world)
#<PACKAGE "COMMON-LISP-USER">
CL-USER> (symbol-function 'hello-world)
#<FUNCTION HELLO-WORLD>
CL-USER> (symbol-package 'print-name-of-function)
#<PACKAGE "P-N-F">
CL-USER>