;;; -*- Mode: COMMON-LISP; Fonts: (MEDFNT HL12B HL12I MEDFNB); Package: USER; Base: 10 -*-

(proclaim '(optimize (space 0)
		     (speed 0)
		     (safety 3)
		     (compilation-speed 0)))

(defpackage pascalx
 (:nicknames pascal-translator)
 (:shadow 4TRUE FALSE WRITE read close trunc break error abs* 4round get*)
 ) 

(fs:define-canonical-type :pascal "P"
  (:unix "P")
  (:vms "PAS"))

3(DEFSYSTEM *:3PASCALX*
  (:name "PASCAL Translator")
  (:short-name "PASCALX")
  (:pathname-default  "pascalx:sources;")		   ;1 Place proper directory here*
  (:module defs       "DEFS")
  (:module main      ("CODE-GENERATOR" "LEXICAL-ANALYZER" "MISC-FUNCTIONS" "PARSER"
		      "PASCALX" "SYMTAB-GENERATOR" "SYMBOL-TABLE"))
  (:compile-load defs)
  (:compile-load main (:fasload defs)
		      (:fasload defs))
  );1pascalx


3(DEFSYSTEM PASCALX-RUNTIME**
  (:name "Pascal Translator Runtime Support")
  (:pathname-default "pascalx:sources;")		   ;1 place proper directory here*
  (:module runtime  ("runtime"))
  (:compile-load runtime)
  )