
; Copyright 1990 Apple Computer, Inc. -- All rights reserved
; This file loads everything necessary to build a "Generalized Lisp" image.
; This may be loaded into a fresh Common Lisp image or into another program.
; Note: this assumes that the standard Common Lisp read-table is in effect.

(let ((*default-pathname-defaults* (pathname "ccl;glisp 1.2:object files:")))

  (make-package :glisp)
  (import '(glisp plisp mlisp lisp) :glisp)
  (in-package :glisp)
  (use-package '(:ccl :user) :glisp)

  (terpri)
  (princ "Constants...")	(load "Constants.lisp")
  (princ "Interpreter...")	(load "Interpreter.lisp")
  (princ "Scanner...")		(load "Scanner.lisp")
  (princ "Glisp...")		(load "Glisp.lisp")
  (princ "Plisp...")		(load "Plisp.lisp")

; (princ "Mlisp...")		(load "ccl;glisp 1.2:Mlisp dialect:Mlisp.lisp")

  (in-package :user)
  (use-package '(:glisp))
)

(dumplisp "ccl;Glisp" :compress nil)
