Getpoint doesn't allow osnap

This piece of code will give this message.

What is the reason i can not use a point of some object?

"

Points must be distinct.

; error: Function cancelled

"

(defun c:miv ()
 (command "ucs" "v")
 (setq ss1 (ssget))
 (setq a1 (getpoint "select point:"))   ; can't use snap here?
 (command "mirror" ss1 "" a1 "@0,1" "Y")
 (prin1)
 (princ "*Cancel*")
 (command "ucs" "p")
 (PRIN1)
)

Hint: Use "_non".

I want to be ABLE to use snappoints

You can use snaps with getpoint:

(defun c:test (/ os)
 (setq os (getvar 'osmode))
 (setvar 'osmode 16383)
 (getpoint)
 (setvar 'osmode os)
 (princ)
)

@Hans:

This is such a classic issue...

Replace:

(command "mirror" ss1 "" a1 "@0,1" "Y")

With:

(command "mirror" ss1 "" "_non" a1 "_non" "@0,1" "Y")

Thanks again Roy