its_survival_guide
Differences
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] 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.// | ||
its_survival_guide.txt · Last modified: 2020/04/15 20:22 by smj
Page Tools
