;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 126.91
;;; Reason:
;;;  Generate portability warning for (ZL:MAKE-ARRAY ... :TYPE 'ART-Q-LIST).
;;;  This is just to find occurrences when compiling the system -- needed to
;;;  help determine whether/how to implement for Falcon.
;;; Written 24-Sep-88 00:40:35 by keith (Keith Corbett) at site Gigamos Cambridge
;;; while running on Breaking Glass from band 1
;;; with Experimental System 126.89, Experimental ZMail 74.1, Experimental Local-File 76.0, Experimental File-Server 25.0, Experimental Unix-Interface 14.0, Experimental Tape 25.1, Experimental Lambda-Diag 18.0, Experimental ZWEI 126.11, microcode 1762, SDU Boot Tape 3.14, SDU ROM 103.



; From modified file DJ: L.SYS; QCOPT.LISP#185 at 24-Sep-88 00:40:35
#8R COMPILER#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "COMPILER")))
  (PATCH-SOURCE-FILE "SYS: SYS; QCOPT  "

(defun (:property make-array style-checker) (form &aux type)
  ;;Handle quoted and keyword forms of :TYPE :ART-Q-LIST
  (and (setq type (or (getf (cddr form) :type)
		      (cadr (member '(quote :type) (cddr form)))))
       (or (equal type '(quote art-q-list))
	   (and (symbolp type) (string-equal type :art-q-list)))
       (warn 'art-q-list-warning :not-portable
	 "~S called with :TYPE ART-Q-LIST -- may not be portable" (car form))))

))