diff options
Diffstat (limited to 'src/interp/def.lisp')
-rw-r--r-- | src/interp/def.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/def.lisp b/src/interp/def.lisp index b6f7a920..f9613d94 100644 --- a/src/interp/def.lisp +++ b/src/interp/def.lisp @@ -464,10 +464,10 @@ foo defined inside of fum gets renamed as fum,foo.") (setq RHS (DEF-IS-REMDUP1 (THIRD X))) (setq LHS (DEF-IS-REMDUP1 (SECOND X))) (LIST 'SPADLET LHS RHS)) - ((EQCAR X 'LET) + ((EQCAR X '%LET) (setq RHS (DEF-IS-REMDUP1 (THIRD X))) (setq LHS (DEF-IS-REMDUP1 (SECOND X))) - (LIST 'LET LHS RHS)) + (LIST '%LET LHS RHS)) ((EQCAR X 'QUOTE) X) ((AND (EQCAR X 'EQUAL) (NOT (CDDR X))) (PUSH (LIST 'EQUAL (setq G (IS-GENSYM)) (SECOND X)) $IS-EQLIST) G) |