demo.lsp

lisp下面编写的meval的lisp语言解释器

; fichier pour tester meval

(defun fibo (x) 
  (if (= 1 x)
      0
    (if (= 2 x)
	1
      (+ (fibo (- x 1)) (fibo (- x 2))))))

(defun facto (x)
  (if (= 1 x)
      1
    (* x (facto (- x 1)))))