;;; -*- Mode:LISP; Package:COMPILER; Readtable:ZL; Base:10 -*-

;;;ART-Q-LIST may be going a-way... flush out from system code? Keith 9/88
(defun (:property make-array style-checker) (form)
  (if (string-equal (getf (cddr form) :type) :art-q-list)
      (warn 'art-q-list-warning :not-portable
	"~S called with :TYPE :ART-Q-LIST -- may not be portable" (car form))))


(defun zulu (x)
  (compiler-let ((*just-once-for-style-checkers-per-inner-form* nil))
    (lisp:make-array 10 :type :art-q-list)
    (zl:make-array 10 :type :art-q-list)
    (zl:make-array 10 :type 'art-q-list)
    (zl:make-array 10 ':type :art-q-list)
    (zl:make-array 10 ':type 'art-q-list)
   (not (not x))))