This shows you the differences between two versions of the page.
Both sides previous revision Previous revision | |||
its_survival_guide [2020/04/08 08:29] lars Fix unbalanced parenthesis. |
its_survival_guide [2020/04/15 20:22] (current) smj |
||
---|---|---|---|
Line 35: | Line 35: | ||
- | **A sample MACLISP session using LEDIT MODE in EMACS** | ||
- | //;tnx1.0e6 to GLS// | ||
- | |||
- | KA ITS 1648 DDT 1547 TTY 52 ; | ||
- | | ||
- | :login smith ;The luser logs in | ||
- | | ||
- | :lisp ; | ||
- | | ||
- | LISP 2154 ; | ||
- | ALLOC? N ;Take the world defaults | ||
- | | ||
- | (plus 3.14 2.71) ;Add two numbers | ||
- | 5.85 | ||
- | | ||
- | (car ' | ||
- | SIMPLE | ||
- | | ||
- | (ledit) | ||
- | | ||
- | (defun sum-squares (a b) ;Typed into the EMACS buffer | ||
- | (plus (times a a | ||
- | | ||
- | ;CTRL-X Z returns to LISP | ||
- | | ||
- | ;READING FROM LEDIT SUN-SQUARES | ||
- | ;EDIT COMPLETED | ||
- | | ||
- | (sum-squares 2.0 3.0) ;call SUM-SQUARES | ||
- | 36.0 ;Returns the wrong number | ||
- | | ||
- | (ledit) | ||
- | | ||
- | CTRL-S (times a a ; | ||
- | ;Search for STRING (times a a | ||
- | | ||
- | (defun sum-squares (a b) ;Correct SUM-SQUARES | ||
- | (plus (times a a) | ||
- | | ||
- | ;CTRL-X Z returns to LISP | ||
- | | ||
- | ;READING FROM LEDIT SUM-SQUARES | ||
- | ;EDIT COMPLETED | ||
- | | ||
- | (sum-squares 2.0 3.0) ;Call SUM-SQUARES again | ||
- | 13.0 ;Correct result | ||
- | |||
- | //The LISP ... Editor ... LISP ... loop will no doubt be repeated many times.// |