Index: /trunk/source/level-1/l1-readloop.lisp
===================================================================
--- /trunk/source/level-1/l1-readloop.lisp	(revision 15330)
+++ /trunk/source/level-1/l1-readloop.lisp	(revision 15331)
@@ -799,4 +799,5 @@
                (cheap-eval-in-environment (if test true false) env)))
             ((eq sym 'locally) (progn-in-env (%cdr form) env env))
+            #|
             ((eq sym 'symbol-macrolet)
 	     (multiple-value-bind (body decls) (parse-body (cddr form) env)
@@ -807,8 +808,10 @@
                                                   (mapcar #'(lambda (m)
                                                               (destructuring-bind (name arglist &body body) m
+                                                                (setq name (nx-need-function-name name))
                                                                 (list name (enclose (parse-macro name arglist body env)
                                                                                     env))))
                                                           (cadr form)))))
                (progn-in-env (cddr form) temp-env temp-env)))
+            |#
             ((and (symbolp sym) 
                   (compiler-special-form-p sym)