(load "/home/someuser/somedir/somefile.lisp")
(defun cubed (x) (* x x x))
(defun test_cubed ()
(print '(cubed 10))
(cubed 10))
|
Then the output will look like:
(CUBED 10) 1000 |
(load "./filename")- does not exit because of the interpreter attempting to execute your 'plain text'.
; Number x ; ------------------------------------------------- ; This is dummy text ; This is dummy text ; Number y ; ------------------------------------------------- ; This is dummy text ; This is dummy text |
USER(5): (load "./pa1.soln.lsp") ; Loading /home/chris/class/CS380/week3/pa1.soln.lsp T |
USER(6): (make) (CONS 'A '(B C)) (A B C) (CONS 'A (CONS 'B '(C))) (A B C) (CONS 'A (CONS 'B (CONS 'C NIL))) (A B C) (NESTED_LISP '(A B C D E F G)) NIL (NESTED_LISP 'A) NIL (NESTED_LISP '(A B C D (E F (G H I J)))) T (UN '(A B C) '(B A D)) (A B C D) (POS_REC+ '(9 8 7 6 5 4 3 2 1)) (9 9 9 9 9 9 9 9 9) (POS_ITER+ '(9 8 7 6 5 4 3 2 1)) (9 9 9 9 9 9 9 9 9) (POS_MAPCAR+ '(7 6 5 4 3 2 1)) (7 7 7 7 7 7 7) (PRO_REC '(1 2 3 4)) T (PRO_REC '(1 2 3 5)) NIL (PRO_REC '(1 2 3 4 10)) NIL (PRO_REC '(1 3)) NIL (PRO_REC '(1 2)) T (PRO_REC '(1 2 3 4 5)) T (PRO_ITER '(1 2 3 4)) T (PRO_ITER '(1 2 3 5)) NIL (PRO_ITER '(1 2 3 4 10)) NIL (PRO_ITER '(1 3)) NIL (PRO_ITER '(1 2)) T (PRO_ITER '(1 2 3 4 5)) T (CA) 0 (CA 'A) 1 (CA 'A 'B 'C) 3 (CA 'A '(B C)) 2 (CA '(A '(B C))) 1 (CA 'A '(B '(C D))) 2 (CA '(A B C D '(E F G))) 1 (CA '(A B C '(D E '(F G)))) 1 (CA '(A B C '(D '(E F)))) 1 (C 5 0) 1 (C 5 1) 5 (C 5 2) 10 (C 5 3) 10 END_OF_TEST_OUTPUT |