;;; -*- Mode:LISP; Package:(PCL LISP 1000); Base:10; Syntax:Common-lisp -*-
;;;
;;; *************************************************************************
;;; Copyright (c) 1985, 1986, 1987 Xerox Corporation.  All rights reserved.
;;;
;;; Use and copying of this software and preparation of derivative works
;;; based upon this software are permitted.  Any distribution of this
;;; software or derivative works must comply with all applicable United
;;; States export control laws.
;;; 
;;; This software is made available AS IS, and Xerox Corporation makes no
;;; warranty about the software, its performance or its conformity to any
;;; specification.
;;; 
;;; Any person obtaining a copy of this software is requested to send their
;;; name and post office or electronic mail address to:
;;;   CommonLoops Coordinator
;;;   Xerox Artifical Intelligence Systems
;;;   2400 Hanover St.
;;;   Palo Alto, CA 94303
;;; (or send Arpanet mail to CommonLoops-Coordinator.pa@Xerox.arpa)
;;;
;;; Suggestions, comments and requests for improvements are also welcome.
;;; *************************************************************************
;;; 
;;;
;;; Load and initialize the Lyric version of PCL
;;;

(in-package 'pcl :use 'lisp) ;This is a little risky, it has to be sure
                             ;to be able to win when we later use walk.

(defvar *pcl-directory* (make-pathname :name nil
                                       :type nil
                                       :version :newest
                                       :defaults (truename *standard-input*)))

(load (merge-pathnames "defsys.dfasl" *pcl-directory*))

(load-pcl)

(load (merge-pathnames "pcl-env.dfasl" *pcl-directory*))