Commit b5d18b16 authored by 3 b's avatar 3 b Committed by Vladimir Sedach
Browse files

don't expand arguments to QUOTE in TRY-EXPRESSIONIZING-IF?

fixes infinite recursion in something like
  (define-symbol-macro foo (ps:@ a foo))
  (lambda () (when (> foo 1) 2))
parent 92609f82
......@@ -196,6 +196,8 @@
(defun try-expressionizing-if? (exp &optional (score 0)) ;; poor man's codewalker
(cond ((< 1 score) nil)
((and (listp exp) (eq (car exp) 'quote))
t)
((listp exp)
(loop for x in (cdr exp) always
(try-expressionizing-if?
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment