;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 12-01-2003
;;;
(defun c:chklasp ()
  (setq alname (tblnext "layer" T))
  (setq frstext "These layer names have spaces in their names:")
  (while (setq alname (tblnext "layer"))
    (if (wcmatch (cdr(assoc 2 alname)) "* *")
      (progn
	(princ (strcat "\n" frstext))
	(princ (cdr(assoc 2 alname)))
	(princ)
	(setq frstext "")
      )
    )
  )
  (if (eq frstext "")
    nil
    (princ "\nNo layer names have spaces in them. ")
  )
  (princ)
)