История изменений

Исправление saufesma, 26.01.23 17:09 (текущая версия) :

там в коде косяк был отловил косяк Было


CL-USER 14 > (defun test-find-vars (expr)
  "returns a list of all the variables in expr"
  (if (consp expr)
      (push (append (find-vars (car expr)) (find-vars (cdr expr))) my-var)
      (progn
       (if (is-var expr) (list expr) nil)
      myvar))) <<<<<<<<<<<<<<<<

стало

CL-USER 14 > (defun test-find-vars (expr)
  "returns a list of all the variables in expr"
  (if (consp expr)
      (push (append (find-vars (car expr)) (find-vars (cdr expr))) my-var)
      (progn
       (if (is-var expr) (list expr) nil)
      my-var)))<<<<<<<<<<<<<<<<<<<<<<

CL-USER 15 > (setq my-var nil)
NIL

CL-USER 16 > (test-find-vars '(? 1 2 ? 3 4 ?))
((? ? ?)) 

CL-USER 17 > my-var
((? ? ?))<<---почему?

То есть при каждом запуске в my-var добавляется значение последнего вычисления (find-vars expr).

Добавляется только (find-vars (cаr expr)), а куда делся (find-vars (cdr expr))?

Исправление saufesma, 26.01.23 17:03:

там в коде косяк был отловил косяк Было


CL-USER 14 > (defun test-find-vars (expr)
  "returns a list of all the variables in expr"
  (if (consp expr)
      (push (append (find-vars (car expr)) (find-vars (cdr expr))) my-var)
      (progn
       (if (is-var expr) (list expr) nil)
      myvar))) <<<<<<<<<<<<<<<<

стало

CL-USER 14 > (defun test-find-vars (expr)
  "returns a list of all the variables in expr"
  (if (consp expr)
      (push (append (find-vars (car expr)) (find-vars (cdr expr))) my-var)
      (progn
       (if (is-var expr) (list expr) nil)
      my-var)))<<<<<<<<<<<<<<<<<<<<<<

CL-USER 15 > (setq my-var nil)
NIL

CL-USER 16 > (test-find-vars '(? 1 2 ? 3 4 ?))
((? ? ?)) <<---почему?

То есть при каждом запуске в my-var добавляется значение последнего вычисления (find-vars expr).

Добавляется только (find-vars (cаr expr)), а куда делся (find-vars (cdr expr))?

Исправление saufesma, 26.01.23 17:01:

там в коде косяк был отловил косяк Было


CL-USER 14 > (defun test-find-vars (expr)
  "returns a list of all the variables in expr"
  (if (consp expr)
      (push (append (find-vars (car expr)) (find-vars (cdr expr))) my-var)
      (progn
       (if (is-var expr) (list expr) nil)
      myvar))) <<<<<<<<<<<<<<<<

стало

CL-USER 14 > (defun test-find-vars (expr)
  "returns a list of all the variables in expr"
  (if (consp expr)
      (push (append (find-vars (car expr)) (find-vars (cdr expr))) my-var)
      (progn
       (if (is-var expr) (list expr) nil)
      my-var)))<<<<<<<<<<<<<<<<<<<<<<

CL-USER 15 > (setq my-var nil)
NIL

CL-USER 16 > (test-find-vars '(? 1 2 ? 3 4 ?))
((? ? ?)) <<---почему?

То есть при каждом запуске в my-var добавляется значение последнего вычисления (find-vars expr).

Добавляется только (find-vars (cdr expr)), а куда делся (find-vars (cdr expr))?

Исправление saufesma, 26.01.23 17:00:

там в коде косяк был отловил косяк Было


CL-USER 14 > (defun test-find-vars (expr)
  "returns a list of all the variables in expr"
  (if (consp expr)
      (push (append (find-vars (car expr)) (find-vars (cdr expr))) my-var)
      (progn
       (if (is-var expr) (list expr) nil)
      myvar))) <<<<<<<<<<<<<<<<

стало

CL-USER 14 > (defun test-find-vars (expr)
  "returns a list of all the variables in expr"
  (if (consp expr)
      (push (append (find-vars (car expr)) (find-vars (cdr expr))) my-var)
      (progn
       (if (is-var expr) (list expr) nil)
      my-var)))<<<<<<<<<<<<<<<<<<<<<<

CL-USER 15 > (setq my-var nil)
NIL

CL-USER 16 > (test-find-vars '(? 1 2 ? 3 4 ?))
((? ? ?)) <<---почему?

То есть при каждом запуске в my-var добавляется значение последнего вычисления (find-vars expr).

Добавляется только (find-vars (cdr expr)) "?", а куда делся (find-vars (cdr expr))?

Исправление saufesma, 26.01.23 16:56:

там в коде косяк был отловил косяк Было


CL-USER 14 > (defun test-find-vars (expr)
  "returns a list of all the variables in expr"
  (if (consp expr)
      (push (append (find-vars (car expr)) (find-vars (cdr expr))) my-var)
      (progn
       (if (is-var expr) (list expr) nil)
      myvar))) <<<<<<<<<<<<<<<<

стало

CL-USER 14 > (defun test-find-vars (expr)
  "returns a list of all the variables in expr"
  (if (consp expr)
      (push (append (find-vars (car expr)) (find-vars (cdr expr))) my-var)
      (progn
       (if (is-var expr) (list expr) nil)
      my-var)))<<<<<<<<<<<<<<<<<<<<<<

CL-USER 15 > (setq my-var nil)
NIL

CL-USER 16 > (test-find-vars '(? 1 2 ? 3 4 ?))
((? ? ?)) <<---почему?

То есть при каждом запуске в my-var добавляется значение последнего вычисления (find-vars expr).

Добавляется только "?", а куда делся (find-vars (cdr expr))?

Исходная версия saufesma, 26.01.23 16:54:

там в коде косяк был отловил косяк Было


CL-USER 14 > (defun test-find-vars (expr)
  "returns a list of all the variables in expr"
  (if (consp expr)
      (push (append (find-vars (car expr)) (find-vars (cdr expr))) my-var)
      (progn
       (if (is-var expr) (list expr) nil)
      myvar))) <<<<<<<<<<<<<<<<

стало

CL-USER 14 > (defun test-find-vars (expr)
  "returns a list of all the variables in expr"
  (if (consp expr)
      (push (append (find-vars (car expr)) (find-vars (cdr expr))) my-var)
      (progn
       (if (is-var expr) (list expr) nil)
      my-var)))<<<<<<<<<<<<<<<<<<<<<<

CL-USER 15 > (setq my-var nil)
NIL

CL-USER 16 > (test-find-vars '(? 1 2 ? 3 4 ?))
((? ? ?)) <<---почему?