gc野马跑过CONS

(defun pp (s)

(print  s)

)

 

(defun  test (n)

(if  (>  n  0)

    (+  n  (test  (-  n  1) ) )

     0

)

)

 

(defun  test (n)

(if  (>  n  0)

    (cons   n  (test  (-  n  1) ) )

     nil

)

)

 

 

(defun  never (n)

(progn  

     (print  n)

     (print  'result)

     (print  (test  n) )

     (never  (+  n  1) )

)

)

 

(test  60)

(test  60)

(test  61)

(test  62)