;;;-*- Mode: LISP; Syntax: Common-Lisp; Base: 10; Package: COMMON-LISP-USER -*-

;;; $Id: init.lisp,v 1.1 1995/09/26 15:31:23 lyman Exp lyman $
;;; $Revision: 1.1 $

;;;; Overview
;;;
;;; Initial Author: Lyman Taylor ( lyman@cc.gatech.edu )
;;; For:    2360 Fall 95
;;; 
;;; Modified by:
;;;             No modifications to date.
;;;
;;; This file is to be loaded at the beginning of Labs ( and any other desired
;;;    times).   This file configures the MCL lisp environment to be more
;;;    conducive to the debugging of programs, among other things.
;;;
;;; WARNING:
;;;          CS 2360 Students should *NOT* use some of the constructs used here
;;;          in their homework assignments.  Simply load this code. You should 
;;;          understand what all of it does by the time you take the final 
;;;          exam.
;;;         
;;; 
;;;  This file has 4 major sections after this Overview.
;;;
;;;           Section 1.   Class Environment 
;;;
;;;           Section 2.   MCL Debugging Environment 
;;;
;;;           Section 3.   Optional Fred Commands
;;;
;;;           Section 4.   Misc. fcns.
;;;
;;; 

;;;;; Class Environment 


(defconstant  *student-gtnum*  'gtXXXXX 
  "A symbol corresponding the the student's gt number." )


(setf (logical-pathname-translations "cs2360" )
      '( ("**;*.*.*"   "gtXXXXX:2360:**:*.*.*"  )))
 
;;;  You can load anything in the gtXXXX:2360: folder by using the 
;;;  the logical host cs2360.  e.g.  ( load "cs2360:init.lisp" ) would
;;;  load this file. And  ( load "cs2360:some_folder;foo.lisp" ) would
;;;  load the file "gtXXXX:some_folder:foo.lisp". 
;;;
   



(defun load-2360-file ( filename )
   "Load a file from the 2360 folder on the students GT volume."
   (load (format nil "cs2360:~A" filename) :print t ))


;;; "uncomment" the following if you want to automatically load 
;;;   the Touretky's code.  NOTE: you must download all the code to your GT 
;;;   volume into a folder called "2360" before you uncomment this.
;;;   Otherwise it will cause an error.

;;;(load   "cs2360:load_dst.lisp" )




;;;;  MCL debugging Environment
 
;;; Save the symbols used in the lambda list of a function
;;;    definition.  The standard default is nil.

(setf *save-local-symbols* t )

;;; Save the source definitions of compiled functions.
;;;   Must be non-nil if what to use the Stepper on a compiled function.

(setf *save-definitions* t )

;;; Save the documentation strings  of compiled functions.
;;;   Must be non-nil if what to use the documentation tool to look up
;;;   documentation string for user defined functions and variables.
;;;   the default is nil.


(setf *save-doc-strings* t )

;;; The default is t.  If you don't want you stuff compiled by default.
;;;   "uncomment" the line below.   Be not doing compilation, no recursion is 
;;;    is removed ( i.e. tail recursion removal ). And all functions can be 
;;;    step through with the stepper.
;;;
;;;  (setf *compile-definitions* nil )


;;; The default is nil.  If you would like the backtrace window to
;;;    automatically appear whenever your enter a break loop then 
;;;    "uncomment" this line.

;;;  (setf *backtrace-on-break* t )


;;;; Optional Fred Commands

(comtab-set-key *comtab* '(:control #\c) (make-comtab 'ed-beep))

(let ((alt-comtab (comtab-get-key *comtab* '(:control #\c))))
  ;; add some of the GNU comtab settings
  ;; just for some measure of compatibility.
  (comtab-set-key alt-comtab '(:control #\a) 
                  'ed-arglist)
  (comtab-set-key alt-comtab '(:control #\c) 
                  'ED-EVAL-OR-COMPILE-TOP-LEVEL-SEXP)
  (comtab-set-key alt-comtab '(:control #\e) 
                  'ED-EVAL-OR-COMPILE-TOP-LEVEL-SEXP)
  ;;(comtab-set-key alt-comtab '(:control #\d) 
  ;;               'ED-GET-DOCUMENTATION)
   T)

  


;;;; Misc. Fcns.


;;; None.



;;; EOF
;;;;;;;