;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 6/21/2006
;;;>		   EDITED: 06-25-2006
;;;
(defun princdebugstrs (dbpstrlst / )
  (IF (AND debug_princs (EQ (TYPE dbpstrlst) 'LIST));(NOT (MEMBER NIL (MAPCAR '(LAMBDA (x) (EQ (TYPE x) 'STR)) dbpstrlst))))
    (PROGN
      (PRINC "\n")
      (FOREACH s dbpstrlst
        (IF (EQ (TYPE s) 'STR)
          (PRINC (STRCAT (IF princprfx princprfx "") s))
          (PRINC s)
        )
        (PRINC)
      )
    )
  )
  (PRINC)
)