source:
trunk/playground/abcl-test/lisp-code/test-code/functions.lisp
| Last change on this file was 395, checked in by , 14 years ago | |
|---|---|
| File size: 202 bytes | |
| Line | |
|---|---|
| 1 | (defun print-line(param) |
| 2 | (format t "~a~%" param)) |
| 3 | |
| 4 | |
| 5 | (defun add(a b) |
| 6 | (+ a b)) |
| 7 | |
| 8 | |
| 9 | |
| 10 | (let ((line-str (concatenate 'string "the result of 6 + 2 is " (write-to-string (add 6 2))))) |
| 11 | (print-line line-str)) |
Note: See TracBrowser
for help on using the repository browser.
