adding .kclrc

[stanonik@nprdc.arpa (Ron Stanonik)]

We decided we'd like KCL to load an init file, .kclrc,
>from the user's home.  (We kept the behaviour of loading
init.lsp from the current directory, but do so afterward.)
Here are our changes to do so.  (For lisp-implementation-version
June 3 1987.)
Ron Stanonik
stanonik@nprdc.arpa

*** /tmp/,RCSt1013583	Thu Oct 15 11:06:18 1987
--- top.lsp	Fri Oct  9 14:02:08 1987
***************
*** 62,68 ****
          (* nil) (** nil) (*** nil)
          (/ nil) (// nil) (/// nil))
      (setq *lisp-initialized* t)
!     (catch *quit-tag* (when (probe-file "init.lsp") (load "init.lsp")))
      (loop
        (setq +++ ++ ++ + + -)
        (format t "~%~a>"
--- 62,72 ----
          (* nil) (** nil) (*** nil)
          (/ nil) (// nil) (/// nil))
      (setq *lisp-initialized* t)
!     (catch *quit-tag*
! 	   (let ((kclrc (merge-pathnames (user-homedir-pathname)
! 					 (pathname ".kclrc"))))
! 		(when (probe-file kclrc) (load (namestring kclrc))))
! 	   (when (probe-file "init.lsp") (load "init.lsp")))
      (loop
        (setq +++ ++ ++ + + -)
        (format t "~%~a>"