; (in-package 'USER)   ;;COMMENTED OUT --RT

; This variable can be changed to customize your path. You should probably



(setq *topdir* "/users/ftp/pub/classic-tutorial/uncompressed/")

(defun lload (f)
   (load (concatenate 'string *topdir* f)))