;;; -*- 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)
  (lisp:make-array 10 :type :art-q-list)
  (zl:make-array 10 :type :art-q-list)
  (not (not x)))