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

;;; Customer Examples - for 3.0 customers to get revised EXAMPLES

(deftape newexamples
  ((files-matching ("EXAMPLES") "COPYRIGHT" "TEXT")
   (files-matching ("EXAMPLES") "FIX-WINDOW-MAKER-CODE" :WILD)
   (files-matching ("EXAMPLES") "TV-EXAMPLES" :WILD))
  ("L")
  ("RELEASE-3"))

;;; PICON DEFINITIONS FROM BEFORE - set global *release-foo* variables!
(deftape ai-base
  ((files-matching ("DEFINITION") :WILD "TEXT")
		  (files-matching ("DEFINITION") "LOAD" "LISP")
		  (files-matching ("DEFINITION") "FEATURES" "LISP")
		  (files-matching ("DEFINITION") "TOOLS" "LISP")
		  (files-matching ("DEFINITION") "SYSTEMS" "LISP")
		  (files-matching ("DEFINITION") "AI-BASE-SYSTEM" "LISP")
		  (IF (MEMQ 'LMI-REL-2 *release-bin-directories*)
		      (FILES-MATCHING ("BIN" "LMI-REL-2") "PRIVATE-PATCH" :WILD))
		  (binaries-for-system ai-base)
		  (files-matching ("DEVELOPMENT-TOOLS") "COPYRIGHT" "TEXT")
		  (files-matching ("DEVELOPMENT-TOOLS") "PICON-DRIBBLE" "LISP")
		  ))

(deftape picon
  ((files-from-product ai-base)
		(registering (files-matching ("DEFINITION") "PICON-SYSTEM" "LISP"))
		(registering (files-matching ("PICON-LIBRARY") :WILD :WILD))
		(registering (binaries-for-system picon))))