Don't try this at home kids.
(defun vl-unload-com ( )
;; Untested, quick and dirty, abuse to suit.
;;
;; Note: Subsequent vl-load-com call won't restore former functionality.
(mapcar
(function (lambda (a) (set a nil)))
(vl-remove-if-not
(function (lambda (a) (wcmatch (strcase (vl-symbol-name a)) "VLAX-*,VLA-*,VLR-*")))
(atoms-family 0)
)
)
(princ "\nPoof: Now you're as dumb as a f'ing mac.")
(princ)
)
Added : VLR-*