Return to lisprcfun.l CVS log

Up to [CSRG BSD Unix] / 3BSD / cmd / lisp / lib

Annotation of 3BSD/cmd/lisp/lib/lisprcfun.l, revision 1.1

1.1     ! root        1: ; this file is read in just before dumplisping if you want .lisprc
        !             2: ; from your home directory read in before the lisp begins.
        !             3: (def lisprc-top-level
        !             4:   (lambda nil
        !             5:          ((lambda (hom prt)
        !             6:                   (cond (hom
        !             7:                          (cond ((and 
        !             8:                                  (errset 
        !             9:                                   (progn
        !            10:                                    (setq prt (infile (concat hom '"/.lisprc")))
        !            11:                                    (close prt))
        !            12:                                   nil)
        !            13:                                  (null (errset
        !            14:                                         (load (concat hom '"/.lisprc")))))
        !            15:                                  (patom '"Error in .lisprc file detected")
        !            16:                                  (terpr)))))
        !            17:                   (putd 'top-level original-top-level))
        !            18:           (getenv 'HOME) nil)))
        !            19: 
        !            20: (setq original-top-level (getd 'top-level))
        !            21: (putd  'top-level (getd 'lisprc-top-level))

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.