if ($disk(%current).type == fixed) {

For cdroms $disk(%current).type returns cdrom.

It can also return "removable", don't know if there are any others.