*** empty log message ***

2006-11-02 11:10:49 +00:00
parent 1da418a3d4
commit d1183a418d
7 changed files with 55 additions and 6 deletions
--- a/ase/test/lsp/t5.lsp
+++ b/ase/test/lsp/t5.lsp
@ -1,6 +1,7 @@
 ; Compute the N'th Fibonacci number.
 (defun fibonacci (N)
-  (if (or (zerop N) (= N 1))
+  ;(if (or (zerop N) (= N 1))
+  (if (or (= N 0) (= N 1))
      1
    (+ (fibonacci (- N 1)) (fibonacci (- N 2)))))

--- a/ase/test/lsp/t6.lsp
+++ b/ase/test/lsp/t6.lsp
@ -0,0 +1,9 @@
+
+
+(setq x '(a b c))
+(setq y '(x y z))
+(setcar x y)
+(setcar y x)
+x
+y
+