Function: REAL-COMMENT-P

Source

(defun real-comment-p (text)
  (scan "^;;;;" text))