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

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.