Hi!

When trying to load a module (import ast) in clpython on ccl (1.9-dev-r15508), it fails on `(let* ((.undecorated-func #1#) ...)

with the following patch, it works better. Since the expansion of #` is implementation dependent, it might be safer to avoid kludges involving it.

------------------------------------------------------------------------------------------------------ diff --git a/compiler/compiler.lisp b/compiler/compiler.lisp index 6bbc61a..adf8bb7 100644 --- a/compiler/compiler.lisp +++ b/compiler/compiler.lisp @@ -1212,15 +1212,19 @@ LOCALS shares share tail structure with input arg locals." (if **-arg #x08 0) (if generator-p #x20 0))))) (when (keywordp fname) - (return-from funcdef-stmt-1 `#1=(make-py-function :name ',fname - :context-name ',context-fname - :lambda ,func-lambda - :func-globals ,(get-module-namespace e) - :func-code ,func-code))) + (return-from funcdef-stmt-1 `(make-py-function :name ',fname + :context-name ',context-fname + :lambda ,func-lambda + :func-globals ,(get-module-namespace e) + :func-code ,func-code))) (let ((art-deco '.undecorated-func)) (dolist (x (reverse decorators)) (setf art-deco `(py-call ,x ,art-deco))) - `(let* ((.undecorated-func #1#) + `(let* ((.undecorated-func (make-py-function :name ',fname + :context-name ',context-fname + :lambda ,func-lambda + :func-globals ,(get-module-namespace e) + :func-code ,func-code)) (.decorated-func ,art-deco)) ;; Ugly special case: ;; class C: ------------------------------------------------------------------------------------------------------