Help for modify my lisp

I have this routine for filter block with select sample block :

(defun c:fbn ( / blockname sset); filter all blocks of same name
 (setq blockname (cdr (assoc 2 (entget (car (entsel))))))
 (setq sset (ssget (list (cons 2 blockname))))
 (sssetfirst sset sset)
 (princ (strcat "\nSelected " (itoa (sslength sset)) " instances of block \"" blockname "\"."))
 (princ)
)

,and how can i select same filtering via the name of block for example the name of block "blockname1" can i exacted this lisp via this command:

(c:fbn(blockname1))

(defun fbn (blockname / sset)
 (setq sset (ssget (list (cons 2 blockname))))
 (sssetfirst nil sset)
 (princ (strcat "\nSelected " (itoa (sslength sset)) " instances of block \"" blockname "\"."))
 (princ)
)

;;; Example : (fbn "blockname1") ;;;

THAXXXX GREEAAT Mr marko_ribar

If i wanna explode selected block how do i do ??It's right to add ::

(fbn "blockname1")
(command "_explode")

I add it but didn't do well?

(command "_explode" "L") can do.

7o7 Last object may not be the block

Hosyn like my other post to you explode using object

(setq blockname (cdr (assoc 2 (entget (car (entsel))))))
; now
(setq obj (car (entsel)))
(setq blockname (cdr (assoc 2 (entget obj))))

(command "explode" obj "")