aboutsummaryrefslogtreecommitdiff
path: root/src/interp/comp.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/comp.lisp')
-rw-r--r--src/interp/comp.lisp15
1 files changed, 1 insertions, 14 deletions
diff --git a/src/interp/comp.lisp b/src/interp/comp.lisp
index 871cbe4c..46499b85 100644
--- a/src/interp/comp.lisp
+++ b/src/interp/comp.lisp
@@ -127,26 +127,13 @@
(if (or lvars (contained 'RETURN (third x)))
`(prog ,lvars (return ,(third x)))
(third x)) )))))
- (let ((fluids (S+ (comp-fluidize (second x)) SpecialVars)))
+ (let ((fluids (S+ (|backendFluidize| (second x)) SpecialVars)))
(if fluids
`(,(first x) ,(second x) (declare (special . ,fluids)) . ,(cddr x))
`(,(first x) ,(second x) . ,(cddr x))))))
; Fluidize: Returns a list of fluid variables in X
-(DEFUN COMP-FLUIDIZE (X)
- (COND ((AND (symbolp X)
- (NE X '$)
- (NE X '$$)
- (char= #\$ (ELT (PNAME X) 0))
- (NOT (DIGITP (ELT (PNAME X) 1))))
- x)
- ((atom x) nil)
- ((eq (first X) 'FLUID) (second X))
- ((let ((a (comp-fluidize (first x)))
- (b (comp-fluidize (rest x))))
- (if a (cons a b) b)))))
-
(DEFUN COMP\,FLUIDIZE (X) (COND
((AND (IDENTP X)
(NE X '$)