BSD 4_3_Tahoe development

[unix-history] / usr / src / ucb / lisp / lisplib / common1.l

diff --git a/usr/src/ucb/lisp/lisplib/common1.l b/usr/src/ucb/lisp/lisplib/common1.l
index 1cb4e0e..2a288c0 100644 (file)
--- a/usr/src/ucb/lisp/lisplib/common1.l
+++ b/usr/src/ucb/lisp/lisplib/common1.l
@@ -1,5 +1,5 @@
 (setq rcs-common1-
 (setq rcs-common1-

-   "$Header: common1.l,v 1.8 83/09/07 08:17:20 jkf Exp $")
+   "$Header: common1.l,v 1.9 84/01/06 14:21:46 sklower Exp $")

 
 ;;
 ;; common1.l                           -[Sun Sep  4 14:04:15 1983 by jkf]-
 
 ;;
 ;; common1.l                           -[Sun Sep  4 14:04:15 1983 by jkf]-


@@ -496,12 +496,12 @@
           (prog (handy handyport bigname)
                 (cond ((null x) (setq x (list edit_file)))
                       (t (setq edit_file (car x))))             
           (prog (handy handyport bigname)
                 (cond ((null x) (setq x (list edit_file)))
                       (t (setq edit_file (car x))))             

-                (setq bigname (concat (car x) '".l"))
+                (setq bigname (concat (car x) ".l"))

                 (cond ((setq handyport (car (errset (infile bigname) nil)))
                        (close handyport)
                        (setq handy bigname))
                       (t (setq handy (car x))))
                 (cond ((setq handyport (car (errset (infile bigname) nil)))
                        (close handyport)
                        (setq handy bigname))
                       (t (setq handy (car x))))

-                (setq handy (concat cmd '" " handy))
+                (setq handy (concat cmd " '+set lisp' " handy))

                 (setq handy (list 'process handy))
                 (eval handy)
                 (cond (doload (load edit_file))))))
                 (setq handy (list 'process handy))
                 (eval handy)
                 (cond (doload (load edit_file))))))